(35)有下列程序代码实现生成20个0-100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些

23 查阅

(35)有下列程序代码实现生成20个0-100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段 ,完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=________ Text1.Text=Text1.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 SubA.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后只需写出数组名,不能使用小括号。

计算机二级