问题 填空题

下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。
Sub PR()
Randomize
Dim a(10)
For j=1 To 10
a(i)=Int( [14] )
If [15] Then k=k+1
Print a(j)
Next J
Print
Print k/10
End Suh

答案

参考答案:(99*Rnd)+1

解析: 小于100的随机正整数用(99*Rnd)+1来表示;求倍数用取模来表示,即a(j) Mod 5=0,用k做计数器,累计计算能被5整除的数的个数。

选择题
单项选择题