樹(shù)結(jié)構(gòu)圖
您現(xiàn)在的位置： > 技術(shù)沙龍 > WEB開(kāi)發(fā) > ASP > VBScript 基礎(chǔ) 使用條件語(yǔ)句
- 相關(guān)軟件
>VBScript 基礎(chǔ) 使用條件語(yǔ)句 創(chuàng)建者：webmaster 更新時(shí)間：2005-07-02 00:08
控制程序執(zhí)行
使用條件語(yǔ)句和循環(huán)語(yǔ)句可以控制 Script 的流程。使用條件語(yǔ)句可以編寫(xiě)進(jìn)行判斷和重復(fù)操作的 VBScript 代碼。在 VBScript 中可使用以下條件語(yǔ)句：
If...Then...Else 語(yǔ)句
Select Case 語(yǔ)句
使用 If...Then...Else 進(jìn)行判斷
If...Then...Else 語(yǔ)句用于計(jì)算條件是否為 True 或 False，并且根據(jù)計(jì)算結(jié)果指定要運(yùn)行的語(yǔ)句。通常，條件是使用比較運(yùn)算符對(duì)值或變量進(jìn)行比較的表達(dá)式。有關(guān)比較運(yùn)算符的詳細(xì)信息，請(qǐng)參閱比較運(yùn)算符。If...Then...Else 語(yǔ)句可以按照需要進(jìn)行嵌套。
條件為 True 時(shí)運(yùn)行語(yǔ)句
要在條件為 True 時(shí)運(yùn)行單行語(yǔ)句，可使用 If...Then...Else 語(yǔ)句的單行語(yǔ)法。下例示范了單行語(yǔ)法。請(qǐng)注意此例省略了關(guān)鍵字 Else。
Sub FixDate()
Dim myDate
myDate = #2/13/95#
If myDate < Now Then myDate = Now
End Sub
要運(yùn)行多行代碼，必須使用多行（或塊）語(yǔ)法。多行（或塊）語(yǔ)法包含 End If 語(yǔ)句，如下所示：
Sub AlertUser(value)
If value = 0 Then
AlertLabel.ForeColor = vbRed
AlertLabel.Font.Bold = True
AlertLabel.Font.Italic = True
End If
End Sub
條件為 True 和 False 時(shí)分別運(yùn)行某些語(yǔ)句
可以使用 If...Then...Else 語(yǔ)句定義兩個(gè)可執(zhí)行語(yǔ)句塊：條件為 True 時(shí)運(yùn)行某一語(yǔ)句塊，條件為 False 時(shí)運(yùn)行另一語(yǔ)句塊。
Sub AlertUser(value)
If value = 0 Then
AlertLabel.ForeColor = vbRed
AlertLabel.Font.Bold = True
AlertLabel.Font.Italic = True
Else
AlertLabel.Forecolor = vbBlack
AlertLabel.Font.Bold = False
AlertLabel.Font.Italic = False
End If
End Sub
對(duì)多個(gè)條件進(jìn)行判斷
If...Then...Else 語(yǔ)句的一種變形允許您從多個(gè)條件中選擇，即添加 ElseIf 子句以擴(kuò)充 If...Then...Else 語(yǔ)句的功能，使您可以控制基于多種可能的程序流程。例如：
Sub ReportValue(value)
If value = 0 Then
MsgBox value
ElseIf value = 1 Then
MsgBox value
ElseIf value = 2 then
Msgbox value
Else
Msgbox "數(shù)值超出范圍！"
End If
可以添加任意多個(gè) ElseIf 子句以提供多種選擇。使用多個(gè) ElseIf 子句經(jīng)常會(huì)變得很累贅。在多個(gè)條件中進(jìn)行選擇的更好方法是使用 Select Case 語(yǔ)句。
使用 Select Case 進(jìn)行判斷
Select Case 結(jié)構(gòu)提供了 If...Then...ElseIf 結(jié)構(gòu)的一個(gè)變通形式，可以從多個(gè)語(yǔ)句塊中選擇執(zhí)行其中的一個(gè)。Select Case 語(yǔ)句提供的功能與 If...Then...Else 語(yǔ)句類(lèi)似，但是可以使代碼更加簡(jiǎn)練易讀。
Select Case 結(jié)構(gòu)在其開(kāi)始處使用一個(gè)只計(jì)算一次的簡(jiǎn)單測(cè)試表達(dá)式。表達(dá)式的結(jié)果將與結(jié)構(gòu)中每個(gè) Case 的值比較。如果匹配，則執(zhí)行與該 Case 關(guān)聯(lián)的語(yǔ)句塊：
Select Case Document.Form1.CardType.Options(SelectedIndex).Text
Case "MasterCard"
DisplayMCLogo
ValidateMCAccount
Case "Visa"
DisplayVisaLogo
ValidateVisaAccount
Case "American Express"
DisplayAMEXCOLogo
ValidateAMEXCOAccount
Case Else
DisplayUnknownImage
PromptAgain
End Select
請(qǐng)注意 Select Case 結(jié)構(gòu)只計(jì)算開(kāi)始處的一個(gè)表達(dá)式（只計(jì)算一次），而 If...Then...ElseIf 結(jié)構(gòu)計(jì)算每個(gè) ElseIf 語(yǔ)句的表達(dá)式，這些表達(dá)式可以各不相同。僅當(dāng)每個(gè) ElseIf 語(yǔ)句計(jì)算的表達(dá)式都相同時(shí)，才可以使用 Select Case 結(jié)構(gòu)代替 If...Then...ElseIf 結(jié)構(gòu)。
相關(guān)文章
本頁(yè)查看次數(shù):