下列程序代码实现生成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 中打印的字符串而不清除图片框中的图像,应