知识点:程序填空(二)
以下程序段的作用是利用随机函数产生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
