Novice solves grammar problems

ljeternity

How does end if work in the conditional statement of VB? Under what circumstances is it combined with what purpose?
Sometimes an error pops up saying that else does not have an if. Why?
Take the following program:
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
     If s Mod 3 <> 0 Then
          x = MsgBox("Not a multiple of 3", vbOKOnly, "Value judgment")
     End If
End If
End Sub

Who is this end if used in conjunction with, and how can I change it if I don’t need it? Thank you! ! !

vialin

The end if is matched with if. An if must have an end if.
such as:
if condition then
     Execute 1
else
     Execute 2
end if

冰火之颠

The most basic grammar... Khan one

If condition Then
[statements]

[ElseIf condition-n Then
[elseifstatements] ...

[Else
[elsestatements]]

End If

yangmier

Don't end if, it's okay to see if you feel tired
if a>b then statement 1: statement 2: statement 3: statement...

ljeternity

All in all, one IF corresponds to one END IF, right?
Thank you please sum up

wsj537

Yes
If there is no end if
You can't debug it

ark消逝

There must be an end if after the if
There can be an else or a new if statement in the middle, but the corresponding if statement must also have an end if

if ... then
...if ...then
   ...
   else
   ...if ... then
      ...
      end if
    end if
end if

Such a standardized code writing makes it easy to see which if corresponds to which END IF

rockyoung

Very simple IF End if statements must appear in pairs, except for those written in one line.

1) (one line):
If ... then ...

2) (Need to pair)
if ....then
...
end if

3) Nesting
if ....then
if ....then
end if
end if

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
　　●If s Mod 3 <> 0 Then
　　　　X = MsgBox("Not a multiple of 3", vbOKOnly, "Numerical judgment")
　　●End If
★End If
End Sub

★●Pairing appears

didiao_cn1

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")
ElseIf s Mod 3 <> 0 Then
     x = MsgBox("Not a multiple of 3", vbOKOnly, "Value judgment")
End If
End Sub