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

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

admin2012-03-22  31
问题 下面程序的功能是产生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://kaotiyun.com/show/tHhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)