下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段是( ),完成程序。 Private Sub Command1_Clickn Dim arr(1 To 20)

admin2010-09-11  37

问题 下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段是(    ),完成程序。    Private Sub Command1_Clickn    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 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

解析 Pad函数用于产生一个小于1但大于或等于0的实数,题中要求0~100之间的随机整数,所以需要对Pad产生的实数进行计算处理Int(Pad*99+1)。要处理数组中的元素,使用For Each…Next语句处理数组元素时,Each后只需写出数组名,不能使用小括号。
转载请注明原文地址:https://jikaoti.com/ti/7Gg0FFFM
0

最新回复(0)