问题
单项选择题
下列程序代码实现生成20个0～100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段是( )，完成程序。
Private Sub Commandl_Click()
Dim arr(1 To 20)
For i=1 To 20
arr(i)=______
Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10)
Next i
Sum=0
For Each X ______
If X＞50 Then
Print Tab(20)；X
Sum=Sum+X
End If
Next X
Print Tab(20)；"Sum="；Sum
End Sub
A．Int(Rnd*99+1) In arr
B．Int(Rnd) In arr
C．Int(Rnd*99+1) In arr()
D．Int(Rnd) In arr()
答案
参考答案：A
解析： Rnd函数用于产生一个小于1但大于或等于0的实数，题中要求0～100之间的随机整数，所以需要对Rnd产生的实数进行计算处理Int(Rnd*99+1)。要处理数组中的元素，使用For Each…Next语句处理数组元素时，Each后只需写出数组名，不能使用小括号。