vb16道操作题(含答案).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 187：填空完成程序，使得单击显示按钮时，Label1、Label2分别显示30，10。程序代码: Private Sub Command1_Click() Dim x, y, t As Integer x = 10 y = 30 If x y Then t = ___ x = ___ y = _____ End If Label1.Caption = Str(x) Label2.Caption = Str(y) End Sub 188：某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番（即4倍）的目标。填空完成程序，使得当单击窗体后，在窗体上输出问题答案。 Private Sub Form_Click() Dim i As Single Dim s As Integer 设s为所求年数,定义为整型,结果由窗体输出 i = 1 s = 0 Do While ____________ i =_________ s=__________ Loop Print s=; s End Sub （新）190.打开考生目录VB\190\工程1.vbp 进行以下操作后并保存！(49套) 填空完成程序，使得当单击计算5!按钮后，Text1显示5!的值。 Private Sub Command1_Click() Dim a As Integer D