A-A+
下面程序的功能是产生10个小于100(不含100)的随机正整数 并统计其中5的倍数所 占比例
问题详情
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所 占比例,但程序不完整,请补充完整。 Sub PR() Randomize Dim a(10) 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 a(j)Mod 5=0
小于100的随机正整数用(99*RnD)+1来表示;求倍数用取模来表示,即a(j)Mod5=0,用k作计数器,累计计算能被5整除的数的个数。