VBA嵌套if语句

if 或 elseif 语句中嵌套另一个 if 或 elseif 语句。if 语句基于最外层 if 语句执行。这使得VBScript 来处理复杂的条件更容易。

语法:

VBScript中的嵌套 if 语句的语法是：

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

示例

为了演示的目的，找出正数类型在函数的帮助下完成。

Private Sub nested_if_demo_Click()
  Dim a As Integer
  a = 23
  
  If a > 0 Then
     MsgBox "The Number is a POSITIVE Number"
     If a = 1 Then
        MsgBox "The Number is Neither Prime NOR Composite"
     ElseIf a = 2 Then
        MsgBox "The Number is the Only Even Prime Number"
     ElseIf a = 3 Then
        MsgBox "The Number is the Least Odd Prime Number"
     Else
        MsgBox "The Number is NOT 0,1,2 or 3"
     End If
  ElseIf a < 0 Then
     MsgBox "The Number is a NEGATIVE Number"
  Else
     MsgBox "The Number is ZERO"
  End If
End Sub

当执行上面的代码，它产生了以下结果：

The Number is a POSITIVE Number
The Number is NOT 0,1,2 or 3