问题：
[单选] 下列程序代码实现生成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 后只需写出数组名，不能使用小括号。
