![[填空题] 下面程序的作用是利用随机函数产生10个100～300(不包含300)之间的随机整数，打印其中是7的倍数的数，并求它们的总和。请填空。 Sub TOF() Randomize Di](http://www.mshxw.com/aiimages/31/251324.png "[填空题] 下面程序的作用是利用随机函数产生10个100～300(不包含300)之间的随机整数，打印其中是7的倍数的数，并求它们的总和。请填空。 Sub TOF() Randomize Di")
[填空题] 下面程序的作用是利用随机函数产生10个100～300(不包含300)之间的随机整数，打印其中是7的倍数的数，并求它们的总和。请填空。
Sub TOF()
Randomize
Dim s AS Double
Dim a(10)As Integer
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=";s
End Sub
参考答案：
a(i)＝Int(Rnd() * 200+100) a(i)Mod 7＝0 End If问题解析:
根据题意，随机产生100～300之间的10个数，存入数组a，因此应调用Rnd函数，故填a(i)=Int(Rnd*200十100)。用来判断数组中的元素是否能被7整除，应填a(i) Mod 7=0。用来结束If语句，应填：End If。
