国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS教程:VBScript 語句-Select Case 語句

2020-07-26 12:11:25
字體:
來源:轉載
供稿:網友

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-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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 鸡东县| 顺平县| 赤壁市| 三门峡市| 武宁县| 泽库县| 北票市| 津南区| 漯河市| 建水县| 抚州市| 瑞安市| 米易县| 博湖县| 凤庆县| 衡东县| 阿尔山市| 南投市| 长寿区| 乡宁县| 双桥区| 安泽县| 乐陵市| 商洛市| 丰城市| 文登市| 宜宾市| 隆回县| 鹤壁市| 丰都县| 天门市| 蒙山县| 木兰县| 澜沧| 江西省| 石城县| 黑河市| 林口县| 阜阳市| 江源县| 平顺县|