以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。Private Sub Command1_Clcik()RandomizeFor I=1 To 20X=Int(Rnd* ______ )If X/2= ________ Then Print xNext IEnd Sub
以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。
Private Sub Command1_Clcik()
Randomize
For I=1 To 20
X=Int(Rnd* ______ )
If X/2= ________ Then Print x
Next I
End Sub
相关考题：
（ 28 ）有如下语句：s ＝ Int （ 100*Rnd ）执行完毕后， s 的值是A ）［ 0,99 ］的随机整数B ）［ 0,100 ］的随机整数C ）［ 1,99 ］的随机整数D ）［ 1 ， 100 ］的随机整数
下面的程序的作用是利用随机函数产生10个100~300（不包含300） 之间的随机整数，打印其中7的倍数的数，并求它们的总和，请填空。Sub TOF（）RandomizeDim s As DoubleDim a（10） As IntegerFor i=0 To 9【10】NextFor i=0 To 9If 【11】 ThenPrint a（i）s=s + a（i）【12】Next iPrintPrint "S="; sEnd Sub
有如下事件过程，程序的功能是()。 Private Sub Commandl _Click ( ) S1=0: S2=0 M1=0: M2=0 N=1 Do while N：A. 求101以内奇数之和B. 求101以内偶数之和C. 随机产生100个0-100之间的整数，并分别求这些数的奇数和与偶数的个数与和D. 随机产生101个0-100之间的整数，并分别求这些数的奇数和与偶数的个数与和
以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。Private Sub Command1 _Click( )For i = 1 To 20x=Int(【 】*200+ 100)If【 】 = 0 ThenPrint xS = S +【 】End IfNext IPrint "Sum = "; SEnd Sub
以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。Option Base 1Private Sub Form. Click()Dim Arr(10) As IntegerDim Max As IntegerRandomizeFor I = 1 To 10Arr(i) = Int (Rnd * 1000)Next iMax= ______For i = 2 To 10If______ThenMax = Arr(i)End IfNext iPrint MaxEnd Sub
下面程序的功能是：计算1～20之间的奇数之和与偶数之和，请填空使程序功能完整。