Select Case 语句
根据表达式的值执行几组语句之一。
Select Case test
[Case
[statements-n]] . . .
[Case Else
[elsestatements-n]]
End Select
参数
test
任意数值或字符串表达式。
如 Case 出现则必选项。一个或多个表达式的分界列表。
statements-n
当 test
elsestatements-n
当 test
说明
如果 test
Case Else 用于指示若在 test
Select Case 语句可以是嵌套的,每一层嵌套的 Select Case 语句必须有与之匹配的 End Select 语句。
下面例子举例说明如何使用 Select Case 语句:
Dim Color, MyVar
Sub ChangeBackground (Color)
MyVar = lcase (Color)
Select Case MyVar
Case "red" document.bgColor = "red"
Case "green" document.bgColor = "green"
Case "blue" document.bgColor = "blue"
Case Else MsgBox "选择另一种颜色"
End Select
End Sub