第12题: [填空题]下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR( )
Randomize
Dim a
For j=1 To 10
a(i)=Int( 【 】 )
If 【 】Then k=k+1
Print a(j)
Next j
Print
Print k/10
End Sub
参考答案:(99*Rnd)+1 答案解析:小于100的随机正整数用(99 * Rnd)+1来表示；求倍数用取模来表示，即a (j)Mod 5=0，用k作计数器，累计计算能被5整除的数的个数。
