以下程序用来产生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
相似考题
参考答案和解析
98+1 Int(X/2)或X\2
更多“以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来。请填空。 Private Sub Comman ”相关问题
-
第1题：
以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1 _Click( )
For i = 1 To 20
x=Int(【 】*200+ 100)
If【 】 = 0 Then
Print x
S = S +【 】
End If
Next I
Print "Sum = "; S
End Sub
正确答案：Rnd x Mod 5 x
Rnd ,x Mod 5 ,x 解析：在循环中利用Rnd函数得到1个介于0～1之间的小数，再转换为200和300之间的整数，并保存在变量x中。利用Mod函数判断x是否能够被5整除，如果可以，则将x累加到变量S中求和。 -
第2题：
有如下语句：
A)[0，99]的随机整数
B)[0，100]的随机整数
C)[1,99]的随机整数
D)[1，100]1的随机整数
正确答案：A
本题考查随机函数的知识。Rnd是一个随机数函数，此函数的返回值是一个(0，1)开区问内的数。此函数乘以100后得到(0，100)开区间内的随机数，取整后即是[0，99]的随机整数。 -
第3题：
下面程序的功能是：计算1～20之间的奇数之和与偶数之和，请填空使程序功能完整。
正确答案：
-
第4题：
以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。
Option Base 1
Private Sub Form. Click()
Dim Arr(10) As Integer
Dim Max As Integer
Randomize
For I = 1 To 10
Arr(i) = Int (Rnd * 1000)
Next i
Max= ______
For i = 2 To 10
If______Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
正确答案：Arr(1) Arr(i) ＞ Max
Arr(1) , Arr(i) ＞ Max -
第5题：
根据条件，回答 46～48 题： 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
第46题：请填写【1】处答案 。
正确答案：
Rnd或Rnd(n)，其中n为任意整数