[填空题] 下面程序的作用是利用随机函数产生10个100~300(不包含300)之间的随机整数,打印其中是7的倍数的数,并求它们的总和。请填空。 Sub TOF() Randomize Di

14 查阅

[填空题] 下面程序的作用是利用随机函数产生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。

计算机考试