|
Private Sub Command1_Click()
Dim s As Integer
s = Text1.Text
If s Mod 3 = 0 Then x = MsgBox("It is a multiple of 3", vbOKOnly, "Value judgment")
Else: If s Mod 3 <> 0 Then x = MsgBox("Not a multiple of 3", vbOKOnly, "Numerical judgment")
End If
End Sub
Anyway, it cannot be executed |
|