问题
填空题
以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1 _Click( )
For i = 1 To 20
x=Int( 【11】 *200+ 100)
If 【12】 = 0 Then
Print x
S = S + 【13】
End If
Next I
Print "Sum = "; S
End Sub
答案
参考答案:[11]Rnd [12]x Mod 5 [13]x
解析: 在循环中利用Rnd函数得到1个介于0~1之间的小数,再转换为200和300之间的整数,并保存在变量x中。利用Mod函数判断x是否能够被5整除,如果可以,则将x累加到变量S中求和。