以下程序用来产生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
参考答案:98+1
以下程序用来产生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
参考答案:98+1