Novice solves grammar problems

rockyoung

Private Sub Command1_Click()
Dim s As Integer
s = Text1.Text
If s Mod 3 = 0 Then
x = MsgBox("is a multiple of 3", vbOKOnly, "numerical judgment")
Else
x = MsgBox("Not a multiple of 3", vbOKOnly, "Value judgment")
End If
End Sub

cjh8713193

IF...
   ...
ELSE
   ...
END IF

If and end if appear in pairs, but sometimes only one result is needed. For example, in the above example, it is a multiple of 3 to give a prompt instead of no prompt. There is no else, and end if is not necessary, such as:

Dim s As Integer
s = Text1.Text
If s Mod 3 = 0 Then x = MsgBox("It is a multiple of 3", vbOKOnly, "Value judgment")

rockyoung

In fact, one sentence of code will do
x = MsgBox(IIf(Val(Text1.Text) Mod 3, "not a multiple of 3", "is a multiple of 3"), vbOKOnly, "numerical judgment")

ljeternity

Thank you, everyone, I learn VC, now there is a thing that requires VB, I am very awkward to use it, so...