下面程序的功能是产生10个小于100(不含100) 的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 Sub PR() Randomize Dim a(10) For i=1 To 10 a(i) =Int([14] ) If [15] Then k=k+1 Print a(j) Next j Print Print k/10 End Sub
主观题
下面程序的功能是产生10个小于100(不含100) 的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 Sub PR() Randomize Dim a(10) For i=1 To 10 a(i) =Int([14] ) If [15] Then k=k+1 Print a(j) Next j Print Print k/10 End Sub