第5课 VBScript编程语言(二)

1. Do…Loop语句
Do…Loop语句有两种语法形式，分别是：前测 型循环结构与后测型循环结构。 (1) 前测型Do…Loop循环 前测型Do…Loop循环结构，首先判断条件，根 据条件决定是否执行循环，执行循环的最少次数 为0。其语法为： 条件〉 Do [{ While | Until }〈条件〉] 语句列1 [〈语句列1〉] [Exit Do] [〈语句列2〉] 语句列2 Loop
VBScript虽然采用事件驱动，调用相对划分得比较小的 子过程，但是对于具体的过程本身，仍然要用到结构化程 序的方法，用控制结构控制程序执行的流程。有些简单程 序可以只用单向流程来编写，有些流程可以依靠运算符的 优先级来控制，但为了处理复杂问题，就要通过选择和循 环改变语句的执行顺序。 结构化程序设计有三种基本结构：顺序结构、选择结构、 循环结构。由这3种基本结构还可以派生出“多分支结 构”，即根据条件从多个分支路径中选择执行其中的一个。
【例5-1】下面的代码测试输入的数据是否有效的数值。 下面的代码测试输入的数据是否有效的数值。
简单验证
请输入数值数据： 请输入数值数据： name="Text1 SIZE="10 10">
NAME="Button1 VALUE="确认 确认"> FOR="Button1
x ?0.95 x ? ? y = ?0.9 x ?0.85 x ? ?0.8 x ? ( x < 1000) (1000 ≤ x < 2000) ( 2000 ≤ x < 3000) (3000 ≤ x < 5000) ( x ≥ 5000)
编写如下VBScript程序代码：
说明： ① 当程序运行到If块时，首先测试〈条件〉。 如果条件为True，则执行Then之后的语句。如果 条件为False，并且有Else子句，则程序会执行 Else部分的语句组2。而在执行完Then或Else之后 的语句组后，会从End If之后的语句继续执行。 ② Else子句是可选的。
托运费计算 托运费计算
托运费计算
请输入行李重量： 请输入行李重量： &nbsp;kg&nbsp;&nbsp; VALUE="计算"> 执行VBScript程序，浏览器显示。
(4) If语句的嵌套格式 当代码中出现多层If语句嵌套时，将使程序冗长而不便 阅读。为此VBScript提供了带ElseIf的If语句来处理当条 件为假时又内嵌If语句的情形，以使程序简化易写。其语 法格式为： If〈条件1〉Then If〈条件1 语句列1 [语句列1] ElseIf〈条件2 ElseIf〈条件2〉Then 语句列2 [语句列2] …… [Else 其他语句列]] [其他语句列]] End If
【例5-4】某百货公司为了促销，采用购物打折扣的优惠办
法（如图5-3）。每位顾客一次购物： (1) 在1000元以上者，按九五ቤተ መጻሕፍቲ ባይዱ优惠。 (2) 在2000元以上者，按九折优惠。 (3) 在3000元以上者，按八五折优惠。 (4) 在5000元以上者，按八折优惠。 分析：设购物款数为x元，优惠价为y元，则优惠付款公式为：
Do用于随时跳出Do…Loop循环 用于随时跳出Do 循环。 ④ Exit Do用于随时跳出Do…Loop循环。通常用于条件 判断之后，例如If Then， 在这种情况下， If… Do语句 判断之后 ， 例如 If…Then ， 在这种情况下 ， Exit Do 语句 将控制权转移到紧接在Loop命令之后的语句。 Loop命令之后的语句 将控制权转移到紧接在Loop命令之后的语句。 如果Exit Do使用在嵌套的Do…Loop语句中 使用在嵌套的Do 语句中， 如果Exit Do使用在嵌套的Do…Loop语句中，则Exit Do 会将控制权转移到Exit Do所在位置的外层循环 所在位置的外层循环。 会将控制权转移到Exit Do所在位置的外层循环。 【例5-6】求累加和1 + 2 + 3 +…+ 100。 求累加和1 100。 分析：采用累加的方法，用变量s 来存放累加的和（ 分析 ： 采用累加的方法 ， 用变量 s 来存放累加的和 （ 开 始为0 用变量n来存放“加数” 加到s中的数） 始为 0 ）， 用变量n来存放 “ 加数” （ 加到s 中的数 ） 。 这 又称为计数器， 开始到100为止。 100为止 里n又称为计数器，从1开始到100为止。
说明： 说明： While…Loop是 前测型） 当型循环语句， ① Do While…Loop 是 （ 前测型 ） 当型循环语句 ， 当条 件为真（True）时执行循环体，条件为假（False） 件为真 （ True ） 时执行循环体 ， 条件为假 （ False ） 时终 止循环； Until…Loop是 前测型）直到型循环语句， 止循环；Do Until…Loop是（前测型）直到型循环语句， 条件为假时执行循环体，直到条件为真时终止循环。 条件为假时执行循环体，直到条件为真时终止循环。 条件” 是条件表达式， 为循环的条件。 ② “ 条件 ” 是条件表达式 ， 为循环的条件 。 其值为 True或False。如果省略条件（Null） True 或 False 。 如果省略条件 （ Null ） ， 则条件会被当作 False。 False。 语句组”是一条或多条命令（循环体） ③ “ 语句组 ” 是一条或多条命令 （ 循环体 ） ， 它们将 被重复当或直到条件为True True。 被重复当或直到条件为True。
Case语句可以根据测试条件的值 语句可以根据测试条件的值， Select Case 语句可以根据测试条件的值 ， 来决定执行 几组语句中之一组，其语法格式为： 几组语句中之一组，其语法格式为： Case〈测试条件〉 Select Case〈测试条件〉 Case〈表达式表1 Case〈表达式表1〉 语句组1 [〈语句组1〉] [Case〈表达式表2 [Case〈表达式表2〉 语句组2 [〈语句组2〉]] …… [Case Else 其他语句组〉 [〈其他语句组〉]] End Select
【例5-2】将例5-1中的行If语句改为使用If语句块。
简单验证
请输入数值数据： 请输入数值数据： name="Text1 SIZE="10 10">
NAME="Button1 VALUE="确认 确认"> FOR="Button1
If语句的嵌套 (3) If语句的嵌套 If语句可以嵌套使用 即在If语句的语句块使用If语句。 语句可以嵌套使用， If语句的语句块使用If语句 If语句可以嵌套使用，即在If语句的语句块使用If语句。 铁路托运行李，从甲地到乙地， 【 例 5-3】 铁路托运行李 ， 从甲地到乙地 ， 规定每张客票 托运费计算方法是： 行李重量不超过50 公斤时， 50公斤时 托运费计算方法是 ： 行李重量不超过 50 公斤时 ， 每公斤 25元 超过50公斤而不超过100公斤时， 50公斤而不超过100公斤时 0.25 元 ， 超过 50 公斤而不超过 100 公斤时 ， 其超过部分每 公斤0 35元 超过100公斤时，其超过部分每公斤0 45元 100公斤时 公斤 0.35 元 ， 超过 100 公斤时 ， 其超过部分每公斤 0.45 元 。 编写程序，输入行李重量，计算并输出托运的费用。 编写程序，输入行李重量，计算并输出托运的费用。 分析：设行李重量为w公斤，应付运费为x 分析：设行李重量为w公斤，应付运费为x元，则运费公式为： 则运费公式为：
中的If语句可以改为Select语句，其代码为： If语句可以改为Select语句 【例5-5】例5-4中的If语句可以改为Select语句，其代码为：
优惠价计算
所购商品总金额： 所购商品总金额： name="Text1 &nbsp; 10">&nbsp SIZE="10">&nbsp;元
( w ≤ 50) ?0.25 × w ? x = ?0.25 × 50 + 0.35 × ( w ? 50) (50 < w ≤ 100) ?0.25 × 50 + 0.35 × 50 + 0.45 × ( w ? 100) ( w > 100) ?
编写如下VBScript程序代码： 编写如下VBScript程序代码： VBScript程序代码
优惠价计算
所购商品总金额： &nbsp;元
执行VBScript程序，浏览器显示。
2. 多分支条件选择结构
多分支选择结构的特点是：从多个选择结构中，选择第 一个条件为真的路线作为执行的路线。即所给定的选择条 件1为真时，执行a1块；如果为假则继续检查下一个条件。 如果条件都不为真，就执行其他操作块，如果没有其他操 作块，则不作任何操作就结束选择。 虽然使用嵌套的办法可以利用If语句实现多分支选择， 但 是 最 好 还 是 使 用 VBScript 提 供 的 多 分 支 选 择 结 构 （Select Case语句）来实现多分支选择。
说明： ① 当程序运行到If语句时，首先测试〈条件〉。如果 条件为True，则执行Then之后的语句。如果条件为False， 并且有Else子句，则程序会执行Else部分的语句2。而在 执行完Then或Else之后的语句后，会从End If之后的语句 继续执行。 ② Else子句是可选的。 ③ 可以在〈语句1〉或〈语句2〉中使用冒号（:）将多 个命令组合成一条语句。
循环是指在程序设计中，从某处开始有规律地反复执行 某一程序块的现象，重复执行的程序块称为“循环体”。 使用循环可以避免重复不必要的操作，简化程序，节约内 存，从而提高效率。 无论何种类型的循环结构，其特点都是：循环体执行与 否及其执行次数多少都必须视其循环类型与条件而定，且 必须确保循环体的重复执行能在适当的时候得以终止（即 非死循环）。