[填空题] 下面程序的功能是产生10个小于100(不含100) 的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。
Sub PR()
Randomize
Dim a(10)
For i=1 To 10
a(i) =Int( [14] )
If [15] Then k=k+1
Print a(j)
Next j
Print k/10
End Sub
正确答案:[14](Rnd*99) +1 [15]a(i) mod 5
参考解析:产生10个小于100(不含100) 的随机正整数,需要用到随机函数Rnd,Rnd函数是随机生成一个小于1的正数随数,所以根据题意,填入代码为(Rnd*99)+1,而后面加上1是为了能保证取到99。根据题意可知,k表示a(i)中5的倍数的个数,只有当a(i) mod 5=0时,k=k+1。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)