VBS教程：VBScript基础-使⽤条件语句
使⽤条件语句
控制程序执⾏
使⽤条件语句和循环语句可以控制脚本的流程。使⽤条件语句可以编写进⾏判断和重复操作的 VBScript 代码。在 VBScript 中可使⽤以下条件语句：
Select Case 语句
使⽤ If...Else 进⾏判断
算符。If...Else语句可以按照需要进⾏嵌套。
条件为 True 时运⾏语句
要在条件为True时运⾏单⾏语句，可使⽤If...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...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 = Fals 对多个条件进⾏判断
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 进⾏判断
vbscript制作教程Select Case结构提供了If...ElseIf结构的⼀个变通形式，可以从多个语句块中选择执⾏其中的⼀个。Select Case语句提供的功能与If...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
请注意Select Case结构只计算开始处的⼀个表达式（只计算⼀次），⽽If...ElseIf结构计算每个ElseIf语句的表达式，这些表达式可以各不相同。仅当每个ElseIf语句计算的表达式都相同时，
才可以使⽤Select Case 结构代替If...ElseIf结构。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。