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

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

admin2009-01-15  58
问题 下面程序的功能是产生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)Mod 5=0，用k作计数器，累计计算能被5整除的数的个数。
转载请注明原文地址:https://kaotiyun.com/show/Ua2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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