下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 SubPR()  Randomize  Dim a(10)  For j=1 To 10  a(i)=In

admin2012-03-22  32

问题 下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。
   SubPR()
    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
    Fnd Sub

选项

答案(Rnd*99)+1 a(i) mod 5

解析 产生10个小于100(不含100)的随机正整数,需要用到随机函数Rnd,Rnd函数是随机生成一个小于1的正数随机数,所以根据题意,填入代码为(Rnd+99)+1,而后面加上1是为了能保证取到99。根据题意可知,k表示a(i)中5的倍数的个数,只有当a(i)mod 5=0时,k=k+1。
转载请注明原文地址:https://jikaoti.com/ti/zSO0FFFM
0

最新回复(0)