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 = 12

   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

执行上面示例代码，得到以下结果 -

点击确定按钮后，如下所示 -

原文地址：https://www.cnblogs.com/sunyllove/p/11348167.html