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

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

admin2013-01-23  54
问题 下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中是7的倍数的数，并求它们的总和，请填空。
    Sub TOF()
    Randomize
    Dim S As Double
    Dim a(10)As Integer
    For i=0 To 9
    Next
    For i=0 To 9
    If Then
    Ptint 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
解析 根据题意，随机产生100～300之间的10个数，存入数组a，因此应调用Rnd函数，故填a(i)一Int(Rnd*200+100)。用来判断教组中的元素是否能被7整除，应填a(i)Mod 7=0。用来结束If语句，应填End If。
转载请注明原文地址:https://kaotiyun.com/show/a0hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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