填空题 下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所 占比例,但程序不完整,请补充完整。  Sub PR1    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
  • 1、
【正确答案】 1、【14】(99*Rnd)+1    
【答案解析】【15】a(j)Mod 5=0 解析:小于100的随机正整数用(99 * Rnd)+1来表示;求倍数用取模来表示,即a (j)Mod 5=0,用k作计数器,累计计算能被5整除的数的个数。