[填空题] 下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。　　Sub TOF( )　　Randomize　　Dim s As Double　　Dim a(10) As lnteger　　For i=0 To 9　　　　　【】　　Next　　For i=0 To 9　　　　If【】Then　　　　　Print a(i)　　　　　s=s+a(i)　　　　　【】　　　Next i　　Print　　Print "S=&

参考答案：

a(i)=Int(Rnd*200+100)

● 参考解析

求随机数要用到随机函数Rnd，所以在程序中调用了Rnd函数，100～300之间的随机函数表示为：a(i)=Int(Rnd*200+100)；求某个数的倍数要用到取模运算符Mod，本题中求7的倍数，所以表示为：a(i)Mod7=0；对于条件语句，有If开头的必须有EndIf结尾，SelectCase开头的，必须要用EndSelect结尾，所以本题中应添加EndIf。

当前位置：IT认证＞BASIC题库

相关题目: