![[填空题] 下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR( ) Randomize Dim a Fo,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E4%B8%8B%E9%9D%A2%E7%A8%8B%E5%BA%8F%E7%9A%84%E5%8A%9F%E8%83%BD%E6%98%AF%E4%BA%A7%E7%94%9F10%E4%B8%AA%E5%B0%8F%E4%BA%8E100%28%E4%B8%8D%E5%90%AB100%29%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%AD%A3%E6%95%B4%E6%95%B0%EF%BC%8C%E5%B9%B6%E7%BB%9F%E8%AE%A1%E5%85%B6%E4%B8%AD5%E7%9A%84%E5%80%8D%E6%95%B0%E6%89%80%E5%8D%A0%E6%AF%94%E4%BE%8B%EF%BC%8C%E4%BD%86%E7%A8%8B%E5%BA%8F%E4%B8%8D%E5%AE%8C%E6%95%B4%EF%BC%8C%E8%AF%B7%E8%A1%A5%E5%85%85%E5%AE%8C%E6%95%B4%E3%80%82%E3%80%80Sub+PR%28+%29%E3%80%80%E3%80%80%E3%80%80Randomize%E3%80%80%E3%80%80%E3%80%80Dim+a%E3%80%80%E3%80%80%E3%80%80Fo.png "[填空题] 下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR( ) Randomize Dim a Fo,第1张")
[填空题] 下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR( ) Randomize Dim a 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
参考解析：小于100的随机正整数用(99 * Rnd)+1来表示；求倍数用取模来表示，即a (j)Mod 5=0，用k作计数器，累计计算能被5整除的数的个数。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）