WEB开发技术第二章 0sc简个 22VBS基本语句 From:吴教育 Email wujiaoyu@21cn.com QQ:188128997 产东学技木取业学院
WEB开发技术 第二章 2.2 VBS基本语句 From:吴教育 Email: wujiaoyu@21cn.com Q Q: 188128997
、条件语句 控制程序执行 使用条件语句和循环语句可以控制 Script的流程。使用条件 语句可以编写进行判断和重复操作的 VBScript代码。在 VBScript中可使用以下条件语句: · If. Then.Ese语句 Select Case语句 产东学技木取业学院
一、条件语句 控制程序执行 使用条件语句和循环语句可以控制 Script 的流程。使用条件 语句可以编写进行判断和重复操作的 VBScript 代码。在 VBScript 中可使用以下条件语句: · If...Then...Else 语句 · Select Case 语句
使用.hen.Ese进行判断 If. Then.Ese语句用于计算条件是否为True或Fase,并 且根据计算结果指定要运行的语句。通常,条件是使用比较 运算符对值或变量进行比较的表达式。有关比较运算符的详 细信息,请参阅比较运篁符。If..Then.lse语句可以接按照 需要进行嵌套。 产东学技木取业学院
使用 If...Then...Else 进行判断 If...Then...Else 语句用于计算条件是否为 True 或 False,并 且根据计算结果指定要运行的语句。通常,条件是使用比较 运算符对值或变量进行比较的表达式。有关比较运算符的详 细信息,请参阅比较运算符。If...Then...Else 语句可以按照 需要进行嵌套
条件为True时运行语句 要在条件为True时运行单行语句,可使用f.hen.Ese 语句的单行语法。 下例示范了单行语法。请注意此例省略了关键字Else。 Sub FixDateO Dim myDate my Date=#2/13/95# If my Date Now Then my Date Now End sub 产东学技木取业学院
条件为 True 时运行语句 要在条件为 True 时运行单行语句,可使用 If...Then...Else 语句的单行语法。 下例示范了单行语法。请注意此例省略了关键字 Else。 Sub FixDate() Dim myDate myDate = #2/13/95# If myDate < Now Then myDate = Now End Sub
要运行多行代码,必须使用多行(或块)语法。 多行(或块)语法包含End语句,如下所示: Sub AlertUser(value) If value =0 Then AlertLabel. ForeColor= vbRed AlertLabel Font Bold= True Alertlabel Font talic= True End旰 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和Fase时分别运行某些语句 可以使用.Then.Ese语句定义两个可执行语句块: 条件为True时运行某一语句块,条件为 False时运行另 语句块 Sub AlertUser(value If value=0 Then AlertLabel. ForeColor= yb Red AlertLabel. Font Bold True AlertLabel. Font italic True Else AlertLabel. Forecolor= yb black AlertLabel. Font Bold False AlertLabel. Font italic False 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
对多个条件进行判断 f.hen.Ese语句的一种变形允许您从多个条件中选择, 即添加Esef子句以扩充f.hen.se语句的功能,使您 可以控制基于多种可能的程序流程。例如 Sub ReportValue(value) If value =0 Then MsgBox value Elselfyalue= 1 Then Msg Box value Elselfvalue= 2 then Msgbox value Else Msgbox"数值超出范围! End if End Sub 可以添加任意多个Esef子句以提供多种选择。使用多个 Elself子句经常会变得很累赘。在多个条件中进行选择的更 好方法是使用 Select Case语句。 产东学技木取业学院
对多个条件进行判断 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 End Sub 可以添加任意多个 ElseIf 子句以提供多种选择。使用多个 ElseIf 子句经常会变得很累赘。在多个条件中进行选择的更 好方法是使用 Select Case 语句