下列程序代码实现生成20个0~100之间的随机整数，存于数组中，打印数组中大
问题：
[单选] 下列程序代码实现生成20个0~100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段（ ），完成程序。Private Sub Co mmand1Click（ ）
Di marr（1To 20）
For i ＝1To 20
arr（i）＝_________
Textl ．Text ＝Textl ．Text ＆arr（i ）＆Chr（13）＆Chr（10）
Next i
Sum＝0
For Each X
If X＞50Then
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 后只需写出数组名，不能使用小括号。
【下列程序代码实现生成20个0~100之间的随机整数，存于数组中，打印数组中大】相关文章：
2.在窗体上有一个文本框，其名称为Text1，编写下列事件过程：Private
3.设有变量声明为"Di m aDate As Date"，则为变量aDate
4.在对象方法中，一个对象请求另一个对象为其服务的方式通过发送（ ）来实现。
6.要清除已经在图片框Picturel 中打印的字符串而不清除图片框中的图像，应