当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。Private Sub Command1 _Click( ) For i = 1 To 20x=Int( 【11】 *200+ 100)If 【12】 = 0 Then Print x S = S + 【13】 End If Next I Print "Sum = "; SEnd Sub

  

参考答案:

[11]Rnd[12]xMod5[13]x

  参考解析

在循环中利用Rnd函数得到1个介于0~1之间的小数,再转换为200和300之间的整数,并保存在变量x中。利用Mod函数判断x是否能够被5整除,如果可以,则将x累加到变量S中求和。

微信端