VBA switch语句

当一个用户要执行一组根据表达式语句的值在使用select case。每个值被称为 case，并且基于每一种情况下的变量被接通。case else语句执行，如果测试表达式不匹配任何由用户指定的case。

case else为一个可选的声明在使用 select case 时，始终有一个case else语句是一个良好的编程习惯。

语法:

在VBScript一个Swithc语句的语法是：

Select Case expression
   Case expressionlist1
      statement1
      statement2
      ....
      ....
      statement1n
   Case expressionlist2
      statement1
      statement2
      ....
      ....
   Case expressionlistn
      statement1
      statement2
      ....
      ....   
  Case Else
      elsestatement1
      elsestatement2
      ....
      ....
End Select

示例

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

Private Sub switch_demo_Click()
  Dim MyVar As Integer
  MyVar = 1
  
  Select Case MyVar
     Case 1
       MsgBox "The Number is the Least Composite Number"
     Case 2
       MsgBox "The Number is the only Even Prime Number"
     Case 3
       MsgBox "The Number is the Least Odd Prime Number"
     Case Else
       MsgBox "Unknown Number"
  End Select
End Sub

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

The Number is the Least Composite Number