[填空题] 下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。　Sub PR( )　　　Randomize　　　Dim a(10)　

10 查阅

[填空题] 下面程序的功能是产生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整除的数的个数。

计算机考试