第27题: [填空题]下面程序的功能是产生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 Print k/10 End Sub 参考答案:[14](Rnd*99) +1 [15]a(i) mod 5 答案解析:[解析] 产生10个小于100(不含100) 的随机正整数,需要用到随机函数Rnd,Rnd函数是随机生成一个小于1的正数随数,所以根据题意,填入代码为(Rnd*99)+1,而后面加上1是为了能保证取到