高校等考试题天天练二级VB]10月25日

文章作者 100test 发表时间 2007:03:10 18:04:01
来源 100Test.Com百考试题网

知识点：程序填空（二）
以下程序段的作用是利用随机函数产生100个[100，300]之间的随机整数，打印其中5的倍数，和不是5的倍数的其他数的和。
Private Sub Command1_Click()
Dim s As Integer, i As Integer
s = 0
For i = 1 To 100
Randomize
x = Int( （1） )
s = s x
If x Mod （2） = 0 Then
Print x.
t = t x
End If
Next i
Print
Print "非5倍数的数的和为". （3）
End Sub