[填空题] 下面的程序的作用是利用随机函数产生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=" ; s End Sub
正确答案:a(i)=Int(Rnd * 200+100)
参考解析:求随机数要用到随机函数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。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)