A-A+

下面程序的功能是产生10个小于100(不含100)的随机正整数 并统计其中5的倍数所 占比例

2022-08-12 19:59:08 问答库 阅读 197 次

问题详情

下面程序的功能是产生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整除的数的个数。

考点:倍数,比例