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

问题:[填空题]

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

  

参考答案:

[6]Rnd或Rnd(n),其中n为任意整数
[7]xMod5或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-(x5)*5或(x5)*5-x或Fix(x/5)-x/5或x/5-Fix(x/5)
[8]x

  参考解析

由于要生成随机数,所以要使用VisualBasic内部函数Rnd或Rnd(n),表示生成0~1之间的随机数。对于[7],“xMod5”表示变量x是否能被5整除,如果余数为0,则可以被整除,本题答案其他项为等价项。[8]处填“x”表示对符合要求的x进行叠加。

微信端