Select Case ____②____ Case Is < 60
Label1.Caption = \该学生的成绩等级为：D\ Case 60 To 69
Label1.Caption = \该学生的成绩等级为：C\ Case 70 To 84
Label1.Caption = \该学生的成绩等级为：B\ Case 85 To 100
Label1.Caption = \该学生的成绩等级为：A\ Case Else
Label1.Caption = \输入的数据不合法\ ____③___ End Sub 11、
'删除程序中的①②③及下划线，填空完成程序，运行程序使能打印下面所示的图案。 '@ '@@ '@@@ '@@@@ '@@@@@ '@@@@@@
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码 Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To __①___ Print Tab(10);
For j = 1 To ___②_____ Print ____③_____ Next j Print Next i End Sub
12、'删除①②③及下划线， 利用字符串函数Ucase()和转换函数Asc()，填空完成程序。 '注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
6
Private Sub Form_Click()
Dim str1 As String, str2 As String Dim str3 As String, i As Integer str1 = \
For i = 1 To ____①______ str2 = UCase(str1) str1 = str2 & str1 str3 = str3 & str1
str1 = Chr(Asc(str1) + ____②_____) ______③_______ Print str3 End Sub 13
、
'删除①②③及下划线，填空完成程序。
'程序运行后，单击“初始值”命令按钮对数组a的各元素赋值；
'单击“求和”命令按钮，求出数组a的各元素之和，并在Text1中显示出来
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。 Dim a(4, 3) As Integer Dim i, j As Integer
Private Sub Command1_Click() For i = 0 To 3
7
For j = 0 To 2
_____①_____ = i + j Next j Next i
End Sub
Private Sub Command2_Click() For j = 0 To 3 For i = 0 To 2
s = s + _____②______ Next i Next j
Text1.Text = ______③_______ End Sub 14、
'（1）删除①②③④及下划线，填空完成程序。 （'2）程序运行后，从键盘上输入“abcd”，单击确定按钮后，在标签Label1中显示出“BCD” '注：请不要更改原程序结构，删除①、②、③、④及下划线，并在对应位置填写正确的代码。
Private Sub Form_Load() Dim strtext As String
strtext = ____①____(\请输入\
strtext = ____②____(Trim(____③____), 3) Label1.Caption = ____④____(strtext) End Sub 15、
'（1）删除①②③及下划线，填空完成程序。
'（2）从键盘输入10个100以内的整数，单击命令按钮后在窗体上输出其中的最大数，最小数和平均值
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。 Private Sub Command1_Click() Dim x As Integer
Dim max, min, sum As Integer x = InputBox(\请输入您的数：\ Print \您输入的数有：\、\ max = x: min = x: sum = x For i = 2 To 10
8
x = InputBox(\请输入您的数：\ sum = sum + x
If ____①____Then Max = x If ____②_____Then Min = x Next i
Print \平均值\③_______ Print \最大数\最小数\End Sub 16、
'（1）删除①②③及下划线，填空完成程序。
'（2）输入车程公里数，单击按钮“应收车费”后，在Label1输出车程，在Label2中输出车费。
'收费标准：3公里内（包括3公里）起步价12元；
'超过3公里，但10公里内(包括10公里)，则3公里内收费12元，超出部分每公里2元； '如果超过10公里，则10公里内收费26元，超出部分每公里3元。其程序实现如下： '注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click() x = Val(Text1.Text)
If x > 0 And x <= 3 Then _____①_____
If x > 3 And _____②_____ Then y = 12 + (x - 3) * 2 If x > 10 Then y = _____③____ * 3 If x <= 0 Then y = 0
Label1.Caption = x & \公里\Label2.Caption = y & \元\End Sub 17、
'（1）删除①②③及下划线，填空完成程序。
'（2）已知三角形的两边分别为15、18，它们的夹角为41度，圆周率取3.14，求该三角形的面积。
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码
Private Sub Command1_Click() a = 15
b = ___①___
s = 0.5 * a * b * ___②____(41 * 3.14 / 180)
9
____③____= s End Sub 18、
'（1）删除①②③④及下划线，填空完成程序。
'（2） 在文本框Text1中输入成绩，点击\等级\按钮时，文本框里就显示相应的等级。具体等级划分如下：
' 90分以上为\优\，80到89分为\好\，70到79分为\良\，60到69分为\及格\，60分以下为\不及格\。
'注：请不要更改原程序结构，删除①、②、③、④及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click() Dim x As Integer, grade As String x = _____①________ ________②______ Case 90 To 100
grade = \优\ Case 80 To 89
grade = \好\ Case 70 To 79
grade = \良\ Case 60 To 69
grade = \及格\ Case Is < 60
_______③_______ Case Else
MsgBox \请重新输入\End Select
Print \该学生成绩为:\④_____ End Sub 19、
10