• VBScript
  • VBScript 用户手册
    • 什么是 VBScript？
    • 在 HTML 页面中添加 VBScript 代码
    • VBScript基础
      • VBScript 数据类型
      • VBScript 变量
      • VBScript 常数
      • VBScript 运算符
      • 使用条件语句
      • 使用循环语句
      • VBScript 过程
      • VBScript 编码约定
    • Internet Explorer 中的 VBScript
      • VBScript 页面的简单样例
      • VBScript 与窗体
      • 在 VBScript 中使用对象
  • 语言参考
    • VBScript 特性
    • 未包含在 Visual Basic for Applications 中的 VBScript 特性
    • 未包含在 VBScript 中的 Visual Basic for Applications 特性
    • VBScript 常数
      • 颜色常数
      • 比较常数
      • 日期和时间常数
      • 日期格式常数
      • 其他常数
      • MsgBox 常数
      • 字符串常数
      • 三态常数
      • VarType 常数
      • VBScript 常数
    • VBScript 错误
      • VBScript 运行时错误
      • VBScript 语法错误
    • VBScript 事件
      • Initialize 事件
      • Terminate 事件
    • VBScript 函数
      • Abs 函数
      • Array 函数
      • Asc 函数
      • Atn 函数
      • CBool 函数
      • CByte 函数
      • CCur 函数
      • CDate 函数
      • CDbl 函数
      • Chr 函数
      • CInt 函数
      • CLng 函数
      • 转换函数
      • Cos 函数
      • CreateObject 函数
      • CSng 函数
      • CStr 函数
      • Date 函数
      • DateAdd 函数
      • DateDiff 函数
      • DatePart 函数
      • DateSerial 函数
      • DateValue 函数
      • Day 函数
      • 派生数学函数
      • Eval 函数
      • Exp 函数
      • Filter 函数
      • FormatCurrency 函数
      • FormatDateTime 函数
      • FormatNumber 函数
      • FormatPercent 函数
      • GetLocale 函数
      • GetObject 函数
      • GetRef 函数
      • Hex 函数
      • Hour 函数
      • InputBox 函数
      • InStr 函数
      • InStrRev 函数
      • Int、Fix 函数
      • IsArray 函数
      • IsDate 函数
      • IsEmpty 函数
      • IsNull 函数
      • IsNumeric 函数
      • IsObject 函数
      • Join 函数
      • LBound 函数
      • LCase 函数
      • Left 函数
      • Len 函数
      • LoadPicture 函数
      • Log 函数
      • LTrim、RTrim 和 Trim 函数
      • 数学函数
      • Mid 函数
      • Minute 函数
      • Month 函数
      • MonthName 函数
      • MsgBox 函数
      • Now 函数
      • Oct 函数
      • Replace 函数
      • RGB 函数
      • Right 函数
      • Rnd 函数
      • Round 函数
      • ScriptEngine 函数
      • Microsoft(R) Visual Basic(R) Scripting Edition
      • ScriptEngineMajorVersion 函数
      • ScriptEngineMinorVersion 函数
      • Second 函数
      • SetLocale 函数
      • Sgn 函数
      • Sin 函数
      • Space 函数
      • Split 函数
      • Sqr 函数
      • StrComp 函数
      • String 函数
      • StrReverse 函数
      • Tan 函数
      • Time 函数
      • Timer 函数
      • TimeSerial 函数
      • TimeValue 函数
      • TypeName 函数
      • UBound 函数
      • UCase 函数
      • VarType 函数
      • Weekday 函数
      • WeekDayName 函数
      • Year 函数
    • VBScript 关键字
      • Empty
      • False
      • Nothing
      • Null
      • True
    • VBScript 方法
      • Clear 方法
      • Execute 方法
      • Raise 方法
      • Replace 方法
      • Test 方法
    • • 字符集 (0 - 127)
      • 字符集 (128 - 255)
      • 区域设置 ID (LCID) 表
    • VBScript 对象
      • Class 对象
      • Err 对象
      • Match 对象
      • Matches 集合
      • 正则表达式(RegExp)对象
    • VBScript 运算符
      • 运算符(+)
      • And 运算符
      • 算术运算符
      • 赋值运算符
      • 赋值运算符 (=)
      • 比较运算符
      • 连接运算符 (&)
      • 连接运算符
      • 除运算符 (/)
      • Eqv 运算符
      • 幂运算符 (^)
      • Imp 运算符
      • \ 运算符
      • Is 运算符
      • 逻辑运算符
      • Mod 运算符
      • 乘运算符 (*)
      • Not 运算符
      • 运算符优先级
      • 运算符概述
      • 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 对象
    • 设计 FileSystemObject
    • 处理驱动器和文件夹
    • 处理文件
    • FileSystemObject 示例代码
  • Scripting 运行时库参考
    • Microsoft Scripting 运行时库特性
    • • DriveType 常数
      • 文件属性常数
      • 文件输入/输出常数
      • FileSystemObject 常数
      • SpecialFolder 常数
    • • 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 属性
  • 正则表达式简介
    • 正则表达式
    • 早期起源
    • 使用正则表达式
    • 正则表达式语法
    • 建立正则表达式
    • 优先权顺序
    • 普通字符
    • 特殊字符
    • 非打印字符
    • 字符匹配
    • 限定符
    • 定位符
    • 选择和编组
    • 后向引用

使用条件语句

控制程序执行

使用条件语句和循环语句可以控制脚本的流程。使用条件语句可以编写进行判断和重复操作的 VBScript 代码。在 VBScript 中可使用以下条件语句：

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

使用 If...Then...Else 进行判断

If...Then...Else 语句用于计算条件是否为 True 或 False，并且根据计算结果指定要运行的语句。通常，条件是使用比较运算符对值或变量进行比较的表达式。有关比较运算符的详细信息，请参阅比较运算符。If...Then...Else 语句可以按照需要进行嵌套。

条件为 True 时运行语句

要在条件为 True 时运行单行语句，可使用 If...Then...Else 语句的单行语法。下例示范了单行语法。请注意此例省略了关键字 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 语句定义两个可执行语句块：条件为 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 "数值超出范围！"
 End If

可以添加任意多个 ElseIf 子句以提供多种选择。使用多个 ElseIf 子句经常会变得很累赘。在多个条件中进行选择的更好方法是使用 Select Case 语句。

使用 Select Case 进行判断

Select Case 结构提供了 If...Then...ElseIf 结构的一个变通形式，可以从多个语句块中选择执行其中的一个。Select Case 语句提供的功能与 If...Then...Else 语句类似，但是可以使代码更加简练易读。

Select Case 结构在其开始处使用一个只计算一次的简单测试表达式。表达式的结果将与结构中每个 Case 的值比较。如果匹配，则执行与该 Case 关联的语句块,示例代码如下：

 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 结构只计算开始处的一个表达式（只计算一次），而 If...Then...ElseIf 结构计算每个 ElseIf 语句的表达式，这些表达式可以各不相同。仅当每个 ElseIf 语句计算的表达式都相同时，才可以使用 Select Case 结构代替 If...Then...ElseIf 结构。