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

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

SubPR()

　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

Fnd Sub