要求:
打开“考生文件夹9”文件夹中的文件“工程1.vbp”,进行以下操作后并保存!(编程在字符串相连接时不使用“+”要使用“&”运算符)利用字符串函数Ucase(x)和转换函数Asc(x)填空完成程序,当单击窗体后在窗体上显示结果。

事先提供的代码:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'删除①②③及下划线, 利用字符串函数Ucase()和转换函数Asc(),填空完成程序。
'注:请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。

Private Sub Form_Click()
Dim str1 As String, str2 As String
Dim str3 As String, i As Integer
str1 = "f"
For i = 1 To ____①______
str2 = UCase(str1)
str1 = str2 & str1
str3 = str3 & str1
str1 = Chr(Asc(str1) + i)
______②_______
Print ____③_______
End Sub
 

答案:
第一个空是2 第二个空是next i 第三个空是str3

操作:
1、双击文本内容判断
2、文件名输入form1.frm (根据情况设置)
3、判断内容部分填写如下:
For i = 1 To 2
str2 = UCase(str1)
str1 = str2 & str1
str3 = str3 & str1
str1 = Chr(Asc(str1) + i)
next i
Print str3
4、确定,并保存即可。