填空题
以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_Click( )
For i=1 To 20
x=Int({{U}} 【6】 {{/U}}*100+200)
If{{U}} 【7】 {{/U}}=0 Then
Print x
S=S+{{U}} 【8】 {{/U}}
End lf
Next i
Print"Sum="；S
End Sub
1、
【正确答案】
1、[6]Rnd或Rnd(n)，其中n为任意整数
【答案解析】[7] x Mod 5或Int(x/5)-x/5或x-/5-CInt(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)
[8] x
[解析] 由于要生成随机数，所以要使用Visual Basic内部函数Rnd或Rnd(n)，表示生成0～1之间的随机数。
对于[7]，“x Mod 5”表示变量x是否能被5整除，如果余数为0，则可以被整除，本题答案其他项为等价项。
[8] 处填“x”表示对符合要求的x进行叠加。