2. 计算机
  3. 下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。 　　Sub TOF( ) 　　Randomize 　　Dim s As Double 　　Dim a(10) As lnt

下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。 　　Sub TOF( ) 　　Randomize 　　Dim s As Double 　　Dim a(10) As lnt

admin2009-01-15  53
问题 下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。
　　Sub TOF( )
　　Randomize
　　Dim s As Double
　　Dim a(10) As lnteger
　　For i=0 To 9
　　　【  】
　　Next
　　For i=0 To 9
　　　　If【  】Then
　　　　　Print a(i)
　　　　　s=s+a(i)
　　【  】
　　Next i
　　Print
　　Print "S=" ; s
　　End Sub
选项
答案a(i)=Int(Rnd * 200+100) , a(i) Mod 7=0 , End If
解析 求随机数要用到随机函数Rnd，所以在程序中调用了Rnd函数，100～300之间的随机函数表示为：a(i)=Int(Rnd * 200+100)；求某个数的倍数要用到取模运算符Mod，本题中求7的倍数，所以表示为：a(i) Mod 7=0；对于条件语句，有If开头的必须有End If结尾，Select Case开头的，必须要用End Select结尾，所以本题中应添加End If。
转载请注明原文地址:https://kaotiyun.com/show/aM2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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