广东科学技术职业学院：《WEB开发技术（ASP）》第二章（2-2） VBS基本语句

WEB开发技术第二章 0sc简个 22VBS基本语句 From:吴教育 Email wujiaoyu@21cn.com QQ:188128997 产东学技木取业学院

WEB开发技术 第二章 2.2 VBS基本语句 From：吴教育 Email： wujiaoyu@21cn.com Q Q: 188128997

课程引入与回顾 Vbscript的基本格式 变量 运算符优先级 产东学技木取业学院

课程引入与回顾 • Vbscript的基本格式 • 变量 • 运算符优先级

目标 条件语句 循环语句 VBScrⅰt过程 产东学技木取业学院

目标 • 条件语句 • 循环语句 • VBScript 过程

、条件语句 控制程序执行 使用条件语句和循环语句可以控制 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 语句

使用 Select Case进行判断 Select Case结构提供了I.Then.Ese肝结构的一个变通形 式,可以从多个语句块中选择执行其中的一个。 Select Case 语句提供的功能与f.Then.se语句类似,但是可以使代 码更加简练易读。 产东学技木取业学院

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