问题
填空题
以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Prirate Sub Command1_Click()
For i=1 To 20
x=Int(______*100+200)
If______=0 Then
Print x
S=S+ ______
End If
Next i
Print "Sum="；S
End Sub
答案
参考答案：Rnd或Rnd(n)
x Mod 5 或 Int(x/5)-x/5或x/5-Int(x/5)或Cint(x/5)-x/5或 x/5-Cint(x/5)或Round(x/5)-x/5或x/5-Round(x/5)或 x-(x\5)*5或 (x\5)*5-x或 Fix(x/5)-x/5或 x/5-Fix(x/5)
x
解析： 由于要生成随机数，所以要使用Visual Basic内部函数Rnd，表示生成0～ 1之间的随机数。
第二空，“x Mod 5”表示变量x是否能被5整除，如果余数为0，则可以被整除，本题答案其他项目为等价项目。
第三处填“x”表示对符合要求的x进行叠加。