Microsoft(R) Visual Basic(R) Scripting Edition Select Case 语句 | 语言参考 起始页|版本 1

请参阅

##### 描述

> 根据表达式的值执行几组语句之一。

##### 语法

> Select Case testexpression
> [Case expressionlist-n
> [statements-n]] . . .
> [Case Else expressionlist-n
> [elsestatements-n]]
> End Select

> Select Case 语句的语法包含以下部分：

> 部分 | 描述
> testexpression | 任意数值或字符串表达式。
> expressionlist-n | 如 Case 出现则必选。一个或多个表达式的分界列表。
> statements-n | 当 testexpression 与 expressionlist-n 中的任意部分匹配时，执行的一条或多条语句。
> elsestatements-n | 当 testexpression 与 Case 子句的任何部分不匹配时，执行的一条或多条语句。

##### 说明

> 如果 testexpression 与任何 Case expressionlist 表达式匹配，则执行此 Case 子句和下一个 Case 子句之间的语句，对于最后的子句，则会执行该子句到 End Select 之间的语句，然后控制权会转到 End Select 之后的语句。如 testexpression 与多个 Case 子句中的 expressionlist 表达式匹配，则只有第一个匹配后的语句被执行。

> Case Else 用于指示若在 testexpression 和任何其他 Case 选项的 expressionlist 之间未找到匹配，则执行 elsestatements。虽然不是必要的，但最好是将 Case Else 语句置于 Select Case 块中以处理不可预见的 testexpression 值。如果没有 Case expressionlist 与 testexpression 匹配且无 Case Else 语句，则继续执行 End Select 之后的语句。

> 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

(C) 1998 Microsoft Corporation. All rights reserved. Terms of Use.