问题
填空题
下面程序的功能是产生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 Sub
答案
参考答案：【14】(99*Rnd)+1
【15】a(j)Mod 5=0
解析：解析：小于100的随机正整数用(99 * Rnd)+1来表示；求倍数用取模来表示，即a
(j)Mod 5=0，用k作计数器，累计计算能被5整除的数的个数。