1、'（1）删除①②③及下划线，填空完成程序。
'（2）从键盘输入10个100以内的整数，单击命令按钮后在窗体上输出其中的最大数，最小数和平均值
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click() Dim x As Integer
x = InputBox(\请输入您的数：\ Print \您输入的数有：\、\ Max = x: Min = x: Sum = x For i = 2 To 10
x = InputBox(\请输入您的数：\ Sum = Sum + x
If ____①____Then Max = x If ____②_____Then Min = x Next i
Print \平均值\③_______ Print \最大数\最小数\End Sub
Private Sub Form_Load() End Sub
答案 1 x>max 2 x 2、'（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 grade = \不及格”\ Case Else MsgBox \请重新输入\End Select Print \该学生成绩为:\④_____ End Sub Private Sub Form_Load() End Sub 运行检验正确的答案 Private Sub Command1_Click() Dim x As Integer, grade As String x = val（text1.text） Select case x Case 90 To 100 grade = \优\ Case 80 To 89 grade = \好\ Case 70 To 79 grade = \良\ Case 60 To 69 grade = \及格\ Case Is < 60 grade = \不及格\ Case Else MsgBox \请重新输入\End Select Print \该学生成绩为:\ End Sub 3、'删除①②③及下划线，填上正确的代码，画出如下所示的图形，请不要更改 原程序结构。 '********** ' ********** ' ********** ' ********** Private Sub Command1_Click() Dim i, j As Integer For i = 1 To ___①____ Step 1 For j = 1 To ___②____ Step 1 Print ____③____ '打印符号* Next j Print '换行 Print Space(i); '打印空格 Next i End Sub Private Sub Form_Load() End Sub 答案① 4 _②i+9 ③“*”； 4、'在Text1中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显 示在Label1中！ Private Sub Command1_Click() Dim exam As Integer '定义变量exam用来存放成绩 '判断输入的成绩是否为数值！ If IsNumeric(Text1.Text) = False Then If MsgBox(\您输入的成绩必须为数字！\vbInformation + vbOKOnly) = vbOK Then Exit Sub End If End If '判断输入的成绩是否合法 exam = Val(Text1.Text) If exam < 0 Or exam > 100 Or Len(exam) = 0 Then If MsgBox(\您输入的成绩不正确！\vbInformation + vbOKOnly) = vbOK Then Exit Sub End If End If '将输入的成绩转换为相应的等级 Select Case exam Case Is < 60 Label1.Caption = \该学生的成绩等级为：D\ Case Is < 70 Label1.Caption = \该学生的成绩等级为：C\ Case Is < 84 Label1.Caption = \该学生的成绩等级为：B\ Case Else Label1.Caption = \该学生的成绩等级为：A\ End Select End Sub 5、'删除程序中的①②③及下划线，填空完成程序，运行程序使能打印下面所示 的图案。 '@ '@@ '@@@ '@@@@ '@@@@@ '@@@@@@ '注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码 Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To 6 Print Tab(10); For j = 1 To i Print \； Next j Print Next i End Sub 6、'（1）删除①②③及下划线并填空完成程序。 '（2）一个细胞每第一分钟分裂为2个，第二分钟，就有4个细胞，然后，8个、16个、??以此类推。 '点击“计算时间”按钮计算出一个细胞在经过多少分钟后数目超过10000个？ '注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。 Private Sub Command1_Click() Dim n As Long, x As Long n = 1: x = 2 Do While x <= 10000 n = n + 1 x = x * 2 Loop Label1.Caption = n & \分钟\ End Sub 7'在窗体\的\事件中编写代码(请不要随便更改其 它代码)，使之能够实现如下功能： '在Text1输入整数m、Text2输入整数n，判断m的平方与n的平方之和是否比10000大， '若比10000大，在Text3文本框中输出“大于10000”； '若小于10000，在Text3文本框中输出“小于10000”； '否则输出“等于10000”。 '注：请不要更改原程序结构! Private Sub Command1_Click() End Sub Private Sub Form_Load() End Sub Private Sub Text1_Change() End Sub Private Sub Text3_Change() End Sub 以下一段是完全空白的这道程序答案 Private Sub Command1_Click() Dim m, n As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m ^ 2 + n ^ 2 > 10000 Then Text3.Text = \大于10000\ ElseIf m ^ 2 + n ^ 2 < 10000 Then Text3.Text = \小于10000\Else Text3.Text = \等于10000\End If End Sub