Syntax 1 |
If condition Then statements [Else else_statements] |
Syntax 2 |
If condition Then
[statements] [ElseIf else_condition Then
[elseif_statements]] [Else
[else_statements]]
End If
|
Description |
Conditionally executes a statement or group of statements. |
Comments |
The single-line conditional statement (syntax 1) has the following parameters: |
|
Parameter |
Description |
|
condition |
Any expression evaluating to a Boolean value. |
|
statements |
One or more statements separated with colons. This group of statements is executed when condition is TRUE. |
|
else_statements |
One or more statements separated with colons. This group of statements is executed when condition is FALSE. |
|
The multiline conditional statement (syntax 2) has the following parameters: |
|
Parameter |
Description |
|
condition |
Any expression evaluating to a
Boolean
value. |
|
statements |
One or more statements to be executed when condition is
True
. |
|
else_condition |
Any expression evaluating to a
Boolean
value. The else_condition is evaluated if condition is
False
. |
|
elseif_statements |
One or more statements to be executed when condition is
False
and else_condition is
True
. |
|
else_statements |
One or more statements to be executed when both condition and else_condition are
False
. |
|
There can be as many
ElseIf
conditions as required. |
Example |
This example inputs a name from the user and checks to see whether it is MICHAEL or MIKE using three forms of the If...Then...Else statement. It then branches to a statement that displays a welcome message depending on the user's name. Sub Main()
uname$ = UCase(InputBox("Enter your name:","Enter Name"))
If uname$ = "MICHAEL" Then GoSub MikeName
If uname$ = "MIKE" Then
GoSub MikeName
Exit Sub
End If
If uname$ = "" Then
MsgBox "Since you don't have a name, I'll call you MIKE!"
uname$ = "MIKE"
GoSub MikeName
ElseIf uname$ = "MICHAEL" Then
GoSub MikeName
Else
GoSub OtherName
End If
Exit Sub
MikeName:
MsgBox "Hello, MICHAEL!"
Return
OtherName:
MsgBox "Hello, " & uname$ & "!"
Return
End Sub
|
See Also |
Choose (function); Switch (function); IIf (function); Select...Case (statement). |