VBScript基礎教程之七使用條件語句

控制程序執行

使用條件語句和循環語句可以控制 Script 的流程使用條件語句可以編寫進行判斷和重復操作的 VBScript 代碼在 VBScript 中可使用以下條件語句

· IfThenElse 語句
· Select Case 語句

使用 IfThenElse 進行判斷

IfThenElse 語句用於計算條件是否為 True 或 False並且根據計算結果指定要運行的語句通常條件是使用比較運算符對值或變量進行比較的表達式有關比較運算符的詳細信息請參閱比較運算符IfThenElse 語句可以按照需要進行嵌套

條件為 True 時運行語句

要在條件為 True 時運行單行語句可使用 IfThenElse 語句的單行語法下例示范了單行語法請注意此例省略了關鍵字 Else

Sub FixDate()
Dim myDate
myDate = #//#
If myDate < Now Then myDate = Now
End Sub

要運行多行代碼必須使用多行（或塊）語法多行（或塊）語法包含 End If 語句如下所示

Sub AlertUser(value)
If value = Then
AlertLabelForeColor = vbRed
AlertLabelFontBold = True
AlertLabelFontItalic = True
End If
End Sub

條件為 True 和 False 時分別運行某些語句

可以使用 IfThenElse 語句定義兩個可執行語句塊條件為 True 時運行某一語句塊條件為 False 時運行另一語句塊

Sub AlertUser(value)
If value = Then
AlertLabelForeColor = vbRed
AlertLabelFontBold = True
AlertLabelFontItalic = True
Else
AlertLabelForecolor = vbBlack
AlertLabelFontBold = False
AlertLabelFontItalic = False
End If
End Sub

對多個條件進行判斷

IfThenElse 語句的一種變形允許您從多個條件中選擇即添加 ElseIf 子句以擴充 IfThenElse 語句的功能使您可以控制基於多種可能的程序流程例如

Sub ReportValue(value)
If value = Then
MsgBox value
ElseIf value = Then
MsgBox value
ElseIf value = then
Msgbox value
Else
Msgbox 數值超出范圍！
End If

可以添加任意多個 ElseIf 子句以提供多種選擇使用多個 ElseIf 子句經常會變得很累贅在多個條件中進行選擇的更好方法是使用 Select Case 語句

使用 Select Case 進行判斷

Select Case 結構提供了 IfThenElseIf 結構的一個變通形式可以從多個語句塊中選擇執行其中的一個Select Case 語句提供的功能與 IfThenElse 語句類似但是可以使代碼更加簡練易讀

Select Case 結構在其開始處使用一個只計算一次的簡單測試表達式表達式的結果將與結構中每個 Case 的值比較如果匹配則執行與該 Case 關聯的語句塊

Select Case DocumentFormCardTypeOptions(SelectedIndex)Text
Case MasterCard
DisplayMCLogo
ValidateMCAccount
Case Visa
DisplayVisaLogo
ValidateVisaAccount
Case American Express
DisplayAMEXCOLogo
ValidateAMEXCOAccount
Case Else
DisplayUnknownImage
PromptAgain
End Select

請注意 Select Case 結構只計算開始處的一個表達式（只計算一次）而 IfThenElseIf 結構計算每個 ElseIf 語句的表達式這些表達式可以各不相同僅當每個 ElseIf 語句計算的表達式都相同時才可以使用 Select Case 結構代替 IfThenElseIf 結構
From:http://tw.wingwit.com/Article/program/Java/JSP/201311/19420.html