填空题
下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
Randomize
Dim a(10)
For i=1 To 10
a(i) =Int({{U}} [14] {{/U}})
If {{U}}[15] {{/U}}Then k=k+1
Print a(j)
Next j
Print
Print k/10
End Sub
1、
【正确答案】
1、[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。