• VBScript
  • VBScript 用戶手冊
    • 什么是 VBScript？
    • 在 HTML 頁面中添加 VBScript 代碼
    • VBScript基礎(chǔ)
      • VBScript 數(shù)據(jù)類型
      • VBScript 變量
      • VBScript 常數(shù)
      • VBScript 運算符
      • 使用條件語句
      • 使用循環(huán)語句
      • VBScript 過程
      • VBScript 編碼約定
    • Internet Explorer 中的 VBScript
      • VBScript 頁面的簡單樣例
      • VBScript 與窗體
      • 在 VBScript 中使用對象
  • 語言參考
    • VBScript 特性
    • 未包含在 Visual Basic for Applications 中的 VBScript 特性
    • 未包含在 VBScript 中的 Visual Basic for Applications 特性
    • VBScript 常數(shù)
      • 顏色常數(shù)
      • 比較常數(shù)
      • 日期和時間常數(shù)
      • 日期格式常數(shù)
      • 其他常數(shù)
      • MsgBox 常數(shù)
      • 字符串常數(shù)
      • 三態(tài)常數(shù)
      • VarType 常數(shù)
      • VBScript 常數(shù)
    • VBScript 錯誤
      • VBScript 運行時錯誤
      • VBScript 語法錯誤
    • VBScript 事件
      • Initialize 事件
      • Terminate 事件
    • VBScript 函數(shù)
      • Abs 函數(shù)
      • Array 函數(shù)
      • Asc 函數(shù)
      • Atn 函數(shù)
      • CBool 函數(shù)
      • CByte 函數(shù)
      • CCur 函數(shù)
      • CDate 函數(shù)
      • CDbl 函數(shù)
      • Chr 函數(shù)
      • CInt 函數(shù)
      • CLng 函數(shù)
      • 轉(zhuǎn)換函數(shù)
      • Cos 函數(shù)
      • CreateObject 函數(shù)
      • CSng 函數(shù)
      • CStr 函數(shù)
      • Date 函數(shù)
      • DateAdd 函數(shù)
      • DateDiff 函數(shù)
      • DatePart 函數(shù)
      • DateSerial 函數(shù)
      • DateValue 函數(shù)
      • Day 函數(shù)
      • 派生數(shù)學(xué)函數(shù)
      • Eval 函數(shù)
      • Exp 函數(shù)
      • Filter 函數(shù)
      • FormatCurrency 函數(shù)
      • FormatDateTime 函數(shù)
      • FormatNumber 函數(shù)
      • FormatPercent 函數(shù)
      • GetLocale 函數(shù)
      • GetObject 函數(shù)
      • GetRef 函數(shù)
      • Hex 函數(shù)
      • Hour 函數(shù)
      • InputBox 函數(shù)
      • InStr 函數(shù)
      • InStrRev 函數(shù)
      • Int、Fix 函數(shù)
      • IsArray 函數(shù)
      • IsDate 函數(shù)
      • IsEmpty 函數(shù)
      • IsNull 函數(shù)
      • IsNumeric 函數(shù)
      • IsObject 函數(shù)
      • Join 函數(shù)
      • LBound 函數(shù)
      • LCase 函數(shù)
      • Left 函數(shù)
      • Len 函數(shù)
      • LoadPicture 函數(shù)
      • Log 函數(shù)
      • LTrim、RTrim 和 Trim 函數(shù)
      • 數(shù)學(xué)函數(shù)
      • Mid 函數(shù)
      • Minute 函數(shù)
      • Month 函數(shù)
      • MonthName 函數(shù)
      • MsgBox 函數(shù)
      • Now 函數(shù)
      • Oct 函數(shù)
      • Replace 函數(shù)
      • RGB 函數(shù)
      • Right 函數(shù)
      • Rnd 函數(shù)
      • Round 函數(shù)
      • ScriptEngine 函數(shù)
      • Microsoft(R) Visual Basic(R) Scripting Edition
      • ScriptEngineMajorVersion 函數(shù)
      • ScriptEngineMinorVersion 函數(shù)
      • Second 函數(shù)
      • SetLocale 函數(shù)
      • Sgn 函數(shù)
      • Sin 函數(shù)
      • Space 函數(shù)
      • Split 函數(shù)
      • Sqr 函數(shù)
      • StrComp 函數(shù)
      • String 函數(shù)
      • StrReverse 函數(shù)
      • Tan 函數(shù)
      • Time 函數(shù)
      • Timer 函數(shù)
      • TimeSerial 函數(shù)
      • TimeValue 函數(shù)
      • TypeName 函數(shù)
      • UBound 函數(shù)
      • UCase 函數(shù)
      • VarType 函數(shù)
      • Weekday 函數(shù)
      • WeekDayName 函數(shù)
      • Year 函數(shù)
    • VBScript 關(guān)鍵字
      • Empty
      • False
      • Nothing
      • Null
      • True
    • VBScript 方法
      • Clear 方法
      • Execute 方法
      • Raise 方法
      • Replace 方法
      • Test 方法
    • • 字符集 (0 - 127)
      • 字符集 (128 - 255)
      • 區(qū)域設(shè)置 ID (LCID) 表
    • VBScript 對象
      • Class 對象
      • Err 對象
      • Match 對象
      • Matches 集合
      • 正則表達式(RegExp)對象
    • VBScript 運算符
      • 運算符(+)
      • And 運算符
      • 算術(shù)運算符
      • 賦值運算符
      • 賦值運算符 (=)
      • 比較運算符
      • 連接運算符 (&)
      • 連接運算符
      • 除運算符 (/)
      • Eqv 運算符
      • 冪運算符 (^)
      • Imp 運算符
      • \ 運算符
      • Is 運算符
      • 邏輯運算符
      • Mod 運算符
      • 乘運算符 (*)
      • Not 運算符
      • 運算符優(yōu)先級
      • 運算符概述
      • Or 運算符
      • 減運算符 (-)
      • Xor 運算符
    • VBScript 屬性
      • Description 屬性
      • FirstIndex 屬性
      • Global 屬性
      • HelpContext 屬性
      • HelpFile 屬性
      • IgnoreCase 屬性
      • Length 屬性
      • Number 屬性
      • Pattern 屬性
      • Source 屬性
      • Value 屬性
    • VBScript 語句
      • Call 語句
      • Class 語句
      • Const 語句
      • Dim 語句
      • Do...Loop 語句
      • Erase 語句
      • Execute 語句
      • ExecuteGlobal 語句
      • Exit 語句
      • For Each...Next 語句
      • For...Next 語句
      • Function 語句
      • If...Then...Else 語句
      • On Error 語句
      • Option Explicit 語句
      • Private 語句
      • Property Get 語句
      • Property Let 語句
      • Property Set 語句
      • Public 語句
      • Randomize 語句
      • ReDim 語句
      • Rem 語句
      • Select Case 語句
      • Set 語句
      • Sub 語句
      • While...Wend 語句
      • With 語句
  • FileSystemObject 用戶指南
    • FileSystemObject 對象模型
    • FileSystemObject 和 Scripting 運行時庫參考的介紹
    • FileSystemObject 對象
    • 設(shè)計 FileSystemObject
    • 處理驅(qū)動器和文件夾
    • 處理文件
    • FileSystemObject 示例代碼
  • Scripting 運行時庫參考
    • Microsoft Scripting 運行時庫特性
    • • DriveType 常數(shù)
      • 文件屬性常數(shù)
      • 文件輸入/輸出常數(shù)
      • FileSystemObject 常數(shù)
      • SpecialFolder 常數(shù)
    • • Add 方法(Dictionary)
      • AddFolders 方法(Folders)
      • BuildPath 方法
      • Close 方法
      • Copy 方法
      • CopyFile 方法
      • CopyFolder 方法
      • CreateFolder 方法
      • CreateTextFile 方法
      • Delete 方法
      • DeleteFile 方法
      • DeleteFolder 方法
      • DriveExists 方法
      • Exists 方法
      • FileExists 方法
      • FolderExists 方法
      • GetAbsolutePathName 方法
      • GetBaseName 方法
      • GetDrive 方法
      • GetDriveName 方法
      • GetExtensionName 方法
      • GetFile 方法
      • GetFileName 方法
      • GetFolder 方法
      • GetParentFolderName 方法
      • GetSpecialFolder 方法
      • GetTempName 方法
      • Items 方法
      • Keys 方法
      • Move 方法
      • MoveFile 方法
      • MoveFolder 方法
      • OpenAsTextStream 方法
      • OpenTextFile 方法
      • Read 方法
      • ReadAll 方法
      • ReadLine 方法
      • Remove 方法
      • Skip 方法
      • SkipLine 方法
      • Write 方法
      • WriteBlankLines 方法
      • WriteLine 方法
    • • Dictionary 對象
      • Drive 對象
      • Drives 集合
      • File 對象
      • Files 集合
      • FileSystemObject 對象
      • Folder 對象
      • Folders 集合
    • • AtEndOfLine 屬性
      • AtEndOfStream 屬性
      • Attributes 屬性
      • AvailableSpace 屬性
      • Column 屬性
      • CompareMode 屬性
      • Count 屬性
      • DateCreated 屬性
      • DateLastAccessed 屬性
      • DateLastModified 屬性
      • Drive 屬性
      • DriveLetter 屬性
      • Drives 屬性
      • DriveType 屬性
      • Files 屬性
      • FileSystem 屬性
      • FreeSpace 屬性
      • IsReady 屬性
      • IsRootFolder 屬性
      • Item 屬性
      • Key 屬性
      • Line 屬性
      • Name 屬性
      • ParentFolder 屬性
      • Path 屬性
      • RootFolder 屬性
      • SerialNumber 屬性
      • ShareName 屬性
      • ShortName 屬性
      • ShortPath 屬性
      • Size 屬性
      • SubFolders 屬性
      • TotalSize 屬性
      • Type 屬性
      • VolumeName 屬性
  • 正則表達式簡介
    • 正則表達式
    • 早期起源
    • 使用正則表達式
    • 正則表達式語法
    • 建立正則表達式
    • 優(yōu)先權(quán)順序
    • 普通字符
    • 特殊字符
    • 非打印字符
    • 字符匹配
    • 限定符
    • 定位符
    • 選擇和編組
    • 后向引用

使用條件語句

控制程序執(zhí)行

使用條件語句和循環(huán)語句可以控制腳本的流程。使用條件語句可以編寫進行判斷和重復(fù)操作的 VBScript 代碼。在 VBScript 中可使用以下條件語句：

• If...Then...Else 語句
• Select Case 語句

使用 If...Then...Else 進行判斷

If...Then...Else 語句用于計算條件是否為 True 或 False，并且根據(jù)計算結(jié)果指定要運行的語句。通常，條件是使用比較運算符對值或變量進行比較的表達式。有關(guān)比較運算符的詳細(xì)信息，請參閱比較運算符。If...Then...Else 語句可以按照需要進行嵌套。

條件為 True 時運行語句

要在條件為 True 時運行單行語句，可使用 If...Then...Else 語句的單行語法。下例示范了單行語法。請注意此例省略了關(guān)鍵字 Else。

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

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

 Sub AlertUser(value)
If value =0 Then
AlertLabel.ForeColor =vbRed
AlertLabel.Font.Bold =True
AlertLabel.Font.Italic =True
End If
End Sub

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

可以使用 If...Then...Else 語句定義兩個可執(zhí)行語句塊：條件為 True 時運行某一語句塊，條件為 False 時運行另一語句塊。

 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

對多個條件進行判斷

If...Then...Else 語句的一種變形允許您從多個條件中選擇，即添加 ElseIf 子句以擴充 If...Then...Else 語句的功能，使您可以控制基于多種可能的程序流程。例如：

 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

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

使用 Select Case 進行判斷

Select Case 結(jié)構(gòu)提供了 If...Then...ElseIf 結(jié)構(gòu)的一個變通形式，可以從多個語句塊中選擇執(zhí)行其中的一個。Select Case 語句提供的功能與 If...Then...Else 語句類似，但是可以使代碼更加簡練易讀。

Select Case 結(jié)構(gòu)在其開始處使用一個只計算一次的簡單測試表達式。表達式的結(jié)果將與結(jié)構(gòu)中每個 Case 的值比較。如果匹配，則執(zhí)行與該 Case 關(guān)聯(lián)的語句塊,示例代碼如下：

 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

請注意 Select Case 結(jié)構(gòu)只計算開始處的一個表達式（只計算一次），而 If...Then...ElseIf 結(jié)構(gòu)計算每個 ElseIf 語句的表達式，這些表達式可以各不相同。僅當(dāng)每個 ElseIf 語句計算的表達式都相同時，才可以使用 Select Case 結(jié)構(gòu)代替 If...Then...ElseIf 結(jié)構(gòu)。