以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。
Private Sub Command1_Clcik（ ）
Randomize
For I=1 To 20
X=Int(Rnd* (12) )
If X/2= (13) Then Print x
Next I
End Sub
Randomize语句的功能是
A:产生一个(0，1)之间的随机小数 B:产生一个[1，10]之间的随机整数 C:产生一个(-1，1)之间的随机小数 D:产生新的随机整数
Randomize语句的功能是________。
A:产生一个(0，1)之间的随机小数 B:产生一个[1，10]之间的随机整数 C:产生一个(-1，1)之间的随机小数 D:产生新的随机整数
下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click（ ）
Dim an(10)As Integer
Dim max As Integer
Randomize
For i %=1 To 10
an(i%)=______
Next
max=an(1)
For i%=2 to 10
ifan(i%)＞max then
max=an(i%)
End If
Next
Print max
End Sub
Int(Rnd*1000)
以下程序用来产生20个100以内的随机整数，并将其中的偶数在窗体上显示，请填空。
Randomize
Fori=1 To 20
x=
[5]
If x/2= [6]
Then
PrintX
End
If
Nexti
Randomize语句的功能是
A:产生一个(0，1)之间的随机小数 B:产生一个[1，10]之间的随机整数 C:产生一个(-1，1)之间的随机小数 D:产生新的随机整数
vb考试
