[填空题] 下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 SubPR() 　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 Fnd Sub

参考答案：

a(i)mod5

● 参考解析

产生10个小于100(不含100)的随机正整数，需要用到随机函数Rnd，Rnd函数是随机生成一个小于1的正数随机数，所以根据题意，填入代码为(Rnd+99)+1，而后面加上1是为了能保证取到99。根据题意可知，k表示a(i)中5的倍数的个数，只有当a(i)mod5=0时，k=k+1。

相关题目:

推荐题目