- 相關(guān)推薦
vbscript條件語(yǔ)句循環(huán)語(yǔ)句使用入門(mén)教程
使用條件語(yǔ)句和循環(huán)語(yǔ)句可以控制腳本的流程。使用條件語(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ì)算條件是否為T(mén)rue 或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ǔ)句要在條件為T(mén)rue 時(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ǔ)句塊：條件為T(mén)rue 時(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 PromptAgainEnd 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)。
【vbscript條件語(yǔ)句循環(huán)語(yǔ)句使用入門(mén)教程】相關(guān)文章：
ASP腳本循環(huán)語(yǔ)句詳細(xì)教學(xué)01-23
javascript中for/in循環(huán)以及常見(jiàn)的使用技巧06-24
java中continue跳轉(zhuǎn)語(yǔ)句使用方法06-06
VBScript的入門(mén)學(xué)習(xí)資料有哪些10-13
梵語(yǔ)入門(mén)教程08-20
CSS入門(mén)教程01-25
新手油畫(huà)入門(mén)教程09-16
紋繡入門(mén)教程06-25