Private Sub Command1_Click()
Dim a, b, c As Integer
Dim max
Randomize
a = Int(900 * Rnd + 100)
b = Int(900 * Rnd + 100)
c = Int(900 * Rnd + 100)
Print a, b, c
max = a
If b > max Then max = b
If c > max Then max = c
Print "最大數(shù)是"; max
End Sub
Private Sub Command1_Click()
Dim a As Integer
a = Val(InputBox("輸入一個整數(shù)"))
If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 Then
MsgBox a & "能夠被3、5、7整除"
Else
MsgBox a & "不能被3、5、7整除"
End If
End Sub