要求：

打开“考生文件夹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、确定，并保存即可。