题库 高中信息
题干
编写VB程序，实现在1到40中随机抽取n个不重复的数字。在文本框Text1中输入需要抽取的个数n，单击“抽取”按钮 Command1，在列表List1中输出结果，程序设计界面如图a所示。请回答下列问题：
Private Sub Command1_Click()
Dim a(1 To 40) As Integer Dim i As Integer List1.Clear
n = Val(Text1.Text) Randomize
For i = 1 To n
①_____ ’随机生成[1，40]之间的正整数
Exit For
End If
Next j
Next i
For i = 1 To n
List1.AddItem Str(a(i)) Next i
End Sub
（3）加框处代码有误，请改正_____。
（4）运行程序，在文本框 Text1 中输入 41，单击“抽取”按钮，程序错误提示为_____。（填写字母：
图 a
（1）在设计程序界面时，应使用图 b 所示“控件工具箱”中的_____ (填写相应编号)添加列表框。图 b
（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。Private Sub Command1_Click()
Dim a(1 To 40) As Integer Dim i As Integer List1.Clear
n = Val(Text1.Text) Randomize
For i = 1 To n
①_____ ’随机生成[1，40]之间的正整数
For j = 1 To i - 1
If a(j) = a(i) ThenExit For
End If
Next j
Next i
For i = 1 To n
List1.AddItem Str(a(i)) Next i
End Sub
（3）加框处代码有误，请改正_____。
（4）运行程序，在文本框 Text1 中输入 41，单击“抽取”按钮，程序错误提示为_____。（填写字母：
| A．溢出/ | B．下标越界/ | C．缺少对象） |
答案(点此获取答案解析）
