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