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

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

admin2010-11-20  59
问题 下面程序的功能是产生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
选项
答案(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://www.kaotiyun.com/show/Ivmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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