vb42道操作题(含答案)：8.docVIP

（新）024：实现功能：单击“出题”按钮后，在label1和label2中各显示一个随机的整数，在text1中输入结果并单击“判断”按钮后，在label3中显示“正确”或“错误”。 暑假，小明的阿姨带着一个小弟弟到小明家玩，这个小弟弟开学就要上一年级了，阿姨交了一个任务给小明，要他每天出20道一位数的加法题给小弟弟做，做完后还要帮小弟弟批改。小明自己的作业也多，他不想每天花许多时间去重复出题、改题的工作，于是他想到了用计算机帮他出题并批改； Dim a, b, c, x, n As Integer Private Sub Command1_Click() Randomize Label6.Caption = 第 n 道题 a = Int(Rnd * 10) b = Int(Rnd * 10) Label1.Caption = a Label2.Caption = b n = n + 1 End Sub Private Sub Command2_Click() c = a + b x = Val(①) If c = ② Then Label3.Caption = 正确 Else Label3.Caption = 错误 End If End Sub Private Sub Form_Load() ③ End Sub （新）094：完善程序，实现功能：用选择排序法将数组a中的10个整数按升序排列。 Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i For i = 1 To ① For j = ② To ③ If a(i) a(j) Then a(0) = a(i) a(i) = a(j) a(j) = a(0) End If Next j Next i For i = 1 To 10 Print CStr(a(i)) Next i End Sub （新）181：从键盘输入10个学生的测试成绩，输出最高分和最低分 Private Sub Command1_Click() Dim cj(10) As Single Dim i As Integer Dim max As Single Dim min As Single For i = 1 To 10 cj(i) = Val(InputBox(请输入10个学生的成绩, 成绩输入)) Next i max = cj(1) min = cj(1) For i = 2 To 10 If cj(i) max Then max = ① End If If ② Then min = ③ End If Next i Print CStr(max), CStr(min) End Sub （新）182：请不要更改源程序的结构，删除原题中的①②③④。填写正确的代码，使程序完善。实现功能：利用格里高利公式π/4=1-1/3+1/5-1/7+……，求π，直到最后一项的值小于0.0001为止,输出π的值 Private Sub Command1_Click() Dim pi As Single, t As Single Dim n As Integer, s As Single pi = ① t = 1: n = 1: s = 1 Do While Abs(t) = 0.0001 pi = pi + ② n = n + 2 s = -s t = ③ Loop pi = pi * ④ Print pi= CStr(pi) End Sub 186：举重比赛，60公斤级选手体重不能超过60公斤。填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示“超重！不能参赛！”，当输入一个小于等于60的数时，标签Label1显示“合格，可以参赛！”。 Private Sub Command1_Click() Dim t As Single 定义变量t，值由文本框Text1读入 t =___________ If __________________Then Label1.Caption = 超重！不能参赛！ Else Label1.Caption = 合格，可以参赛！ ________________ End Sub 187：填空完成程序，使得单击显