嵌套的if语句

另一个If或ElseIf语句内的If或ElseIf语句。内部If语句的执行基于最外面的If语句。这使VBScript可以处理复杂的条件。

句法

If (Boolean_expression) Then
Statement 1
........
........
........
Statement n
If (Boolean_expression) Then
Statement 1
.........
.........
Statement n
ElseIf (Boolean_expression) Then
Statement 1
.........
.........
Statement n
Else
Statement 1
.........
.........
Statement n
End If
Else
Statement 1
.........
.........
Statement n
End If

流程图

在嵌套语句中, VBA甚至会在评估True条件（并执行其关联的语句）后遍历每个If … Then条件, 而在ElseIf结构中, 在评估True条件后会跳过以下所有条件。

在这种情况下, ElseIf结构会更快。因此, 如果可以使用ElseIf结构完成嵌套语句, 则嵌套语句可能不包含非常有效的方法。

例如：假设你想编写一个代码, 如果学生分数大于或等于80, 则返回优秀消息。根据以下示例所示的判定标准, 返回良好, 平均和不良, 例如：

Sub Macro1()
Dim sngMarks As Single
sngMarks = 70
If sngMarks >= 80 Then
MsgBox "Excellent"
End If
If sngMarks >= 60 And sngMarks < 80 Then
MsgBox "Good"
End If
If sngMarks >= 40 And sngMarks < 60 Then
MsgBox "Average"
End If
If sngMarks < 40 Then
MsgBox "Poor"
End If
End Sub

在VBA中运行上面的代码, 你将获得输出, 如下面的屏幕快照所示。

例

让我们借助一个函数找到Excel的正数。

Private Sub nested_If_demo_Click ()
Dim x As Integer 
x = 30 
If x > 0 Then 
MsgBox "a number is a positive number"
If x = 1 Then
MsgBox "A number is neither prime nor composite"
ElseIf x = 2 Then 
MsgBox "A number is the only prime even prime number"
ElseIf x = 3 Then 
MsgBox "A number is the least odd prime number"
Else 
MsgBox "The number is not 0, 1, 2, or 3"
End If 
Else If x < 0 Then
MsgBox "A number is a negative number"
Else 
MsgBox "the number is zero"
End If
End Sub

执行完上面的代码后, 你将获得如下输出：

A number is a positive number 
The number is not 0, 1, 2, or 3