vb16道操作题(含答案).doc
文本预览下载声明
（新）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
显示全部