www.baike369.com
百科369 > vbs教程 > VBScript Select Case语句

VBScript Select Case语句


VBScript Select Case语句

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


语法

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

参数

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


示例

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
Copyright© 2011-2016 www.baike369.com All Rights Reserved