问题
填空题
下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。
Sub TOF( )
Randomize
Dim s As Double
Dim a(10) As lnteger
For i=0 To 9
【10】
Next
For i=0 To 9
If 【11】 Then
Print a(i)
s=s+a(i)
【12】
Next i
Print
Print "S=" ; s
End Sub
答案
参考答案：【10】a(i)=Int(Rnd * 200+100)
【11】a(i) Mod 7=0
【12】End If
解析：解析：求随机数要用到随机函数Rnd，所以在程序中调用了Rnd函数，100～300之间的随机函数表示为：a(i)=Int(Rnd * 200+100)；求某个数的倍数要用到取模运算符Mod，本题中求7的倍数，所以表示为：a(i) Mod 7=0；对于条件语句，有If开头的必须有End If结尾，Select Case开头的，必须要用End Select结尾，所以本题中应添加End If。