第5课__VBScript编程语言(二)

5.1 课前导读 5.2 课堂教学 5.3 上机练习 5.4 课后作业,第5课 VBScript编程语言（二）,5.1 课前导读 VBScript虽然采用事件驱动，调用相对划分得比较小的子过程，但是对于具体的过程本身，仍然要用到结构化程序的方法，用控制结构控制程序执行的流程。有些简单程序可以只用单向流程来编写，有些流程可以依靠运算符的优先级来控制，但为了处理复杂问题，就要通过选择和循环改变语句的执行顺序。 结构化程序设计有三种基本结构：顺序结构、选择结构、循环结构。由这3种基本结构还可以派生出“多分支结构”，即根据条件从多个分支路径中选择执行其中的一个。,5.2 课堂教学 5.2.1 VBScript的选择结构 5.2.2 VBScript的循环结构 5.2.3 VBScript的过程,5.2.1 VBScript的选择结构 1. 单条件选择结构 2. 多分支条件选择结构,1. 单条件选择结构 单条件选择结构是最常用的双分支选择结构，其特点是：所给定条件（条件表达式）的值如果为真，则执行a1块；如果为假则执行a2块。 (1) 行If语句 实现单条件选择结构最简单的语句是行If语句，其语法格式为： If条件Then 语句1 Else语句2,说明： 当程序运行到If语句时，首先测试条件。如果条件为True，则执行Then之后的语句。如果条件为False，并且有Else子句，则程序会执行Else部分的语句2。而在执行完Then或Else之后的语句后，会从End If之后的语句继续执行。 Else子句是可选的。 可以在语句1或语句2中使用冒号（:）将多个命令组合成一条语句。,【例5-1】下面的代码测试输入的数据是否有效的数值。 简单验证 简单验证 请输入数值数据： x = Text1.value If IsNumeric(x) Then p = “数值数据是：“ &_ x Else p = “不是数值数据“ MsgBox “您输入的“ & p ,以5_1.htm或5_1.asp为文件名存盘，存放位置为工作目录H:ASP例第5章例题。（参见1.2.3）。打开浏览器，在地址栏中直接输入虚拟目录名及文件名： /myasp/第5章例题/5_1.htm 在浏览器上的显示效果。,(2) 块If语句 虽然行If语句使用方便，可以满足许多选择结构程序设计的需要，但是当Then部分和Else部分包含较多内容时，在一行中就难以容纳所有命令。为此，VBScript提供了块If语句，将一个选择结构用多个语句行来实现。块If语句又称为多行If语句，其语法结构为： If条件1Then 语句列1 Else 语句列2 End If,说明： 当程序运行到If块时，首先测试条件。如果条件为True，则执行Then之后的语句。如果条件为False，并且有Else子句，则程序会执行Else部分的语句列2。而在执行完Then或Else之后的语句列后，会从End If之后的语句继续执行。 Else子句是可选的。,【例5-2】将例5-1中的行If语句改为使用块If语句。 简单验证 简单验证 请输入数值数据： x = Text1.value If Not IsNumeric(x) Then MsgBox “您输入的不是数值数据“ Else MsgBox “您输入的数据是：“ & x End If ,(3) If语句的嵌套 If语句可以嵌套使用，即在If语句的操作块（语句列1或语句列2）中使用If语句。 【例5-3】铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过50公斤时，每公斤0.25元，超过50公斤而不超过100公斤时，其超过部分每公斤0.35元，超过100公斤时，其超过部分每公斤0.45元。编写程序，输入行李重量，计算并输出托运的费用。 分析：设行李重量为w公斤，应付运费为x元，则运费公式为：,编写如下VBScript程序代码： 托运费计算 托运费计算 请输入行李重量： w = Text1.value If Not IsNumeric(w) Then MsgBox “您输入的不是数值数据“,Else If w ,执行VBScript程序，浏览器显示。,(4) If语句的嵌套格式 当代码中出现多层If语句嵌套时，将使程序冗长而不便阅读。为此VBScript提供了带ElseIf的If语句来处理当条件为假时又内嵌If语句的情形，以使程序简化易写。其语法格式为： If条件1Then 语句列1 ElseIf条件2Then 语句列2 . Else 其他语句列 End If,【例5-4】某百货公司为了促销，采用购物打折扣的优惠办法（如图5-3）。每位顾客一次购物： (1) 在1000元以上者，按九五折优惠。 (2) 在2000元以上者，按九折优惠。 (3) 在3000元以上者，按八五折优惠。 (4) 在5000元以上者，按八折优惠。 分析：设购物款数为x元，优惠价为y元，则优惠付款公式为：,编写如下VBScript程序代码： 优惠价计算 优惠价计算 所购商品总金额： 元 x = Text1.value If Not IsNumeric(x) Then MsgBox “您输入的不是数值数据“ : Exit Sub,If x 执行VBScript程序，浏览器显示。,2. 多分支条件选择结构 多分支选择结构的特点是：从多个选择结构中，选择第一个条件为真的路线作为执行的路线。即所给定的选择条件1为真时，执行a1块；如果为假则继续检查下一个条件。如果条件都不为真，就执行其他操作块，如果没有其他操作块，则不作任何操作就结束选择。 虽然使用嵌套的办法可以利用If语句实现多分支选择，但是最好还是使用VBScript提供的多分支选择结构（Select Case语句）来实现多分支选择。,Select Case语句可以根据测试条件的值，来决定执行几组语句中之一组，其语法格式为： Select Case测试条件 Case表达式表1 语句列1 Case表达式表2 语句列2 . Case Else 其他语句列 End Select 说明： 测试条件为必要参数，是任何数值或字符表达式。, 在Case子句中,表达式表为必要参数，用来测试其中是否有值与测试条件相匹配。表达式列表中的多个表达式之间要用逗号（,）隔开。 语句列 为可选参数，是一条或多条语句，当表达式表中有值与测试条件相匹配时执行。 Case Else子句用于指明其他语句列，当测试条件和所有的Case子句表达式表中的值都不匹配时，则会执行这些语句。虽然不是必要的，但是在Select Case区块中，最好还是加上Case Else语句来处理不可预见的测试条件值。如果没有Case值匹配测试条件，而且也没有Case Else语句，则程序会从End Select之后的语句继续执行。,【例5-5】例5-4中的If语句可以改为Select语句，其代码为： 优惠价计算 优惠价计算 所购商品总金额： 元 x = Text1.value If Not IsNumeric(x) Then MsgBox “您输入的不是数值数据“ : Exit Sub,Select Case True Case x = 1000 And x = 2000 And x = 3000 And x ,代码的执行情况。,5.2.2 VBScript的循环结构 1. DoLoop语句 2. While.Wend语句 3. For.Next语句 4. For EachNext循环语句 5. 循环的嵌套,循环是指在程序设计中，从某处开始有规律地反复执行某一程序块的现象，重复执行的程序块称为“循环体”。使用循环可以避免重复不必要的操作，简化程序，节约内存，从而提高效率。 无论何种类型的循环结构，其特点都是：循环体执行与否及其执行次数多少都必须视其循环类型与条件而定，且必须确保循环体的重复执行能在适当的时候得以终止（即非死循环）。,1. DoLoop语句 DoLoop语句有两种语法形式，分别是：前测型循环结构与后测型循环结构。 (1) 前测型DoLoop循环 前测型DoLoop循环结构，首先判断条件，根据条件决定是否执行循环，执行循环的最少次数为0。其语法为： Do While | Until 条件 语句列1 Exit Do 语句列2 Loop,说明： Do WhileLoop是（前测型）当型循环语句，当条件为真（True）时执行循环体，条件为假（False）时终止循环；Do UntilLoop是（前测型）直到型循环语句，条件为假时执行循环体，直到条件为真时终止循环。 “条件”是条件表达式，为循环的条件。其值为True或False。如果省略条件（Null），则条件会被当作False。 “语句列”是一条或多条命令（循环体），它们将被重复当或直到条件为True。, 可以在DoLoop中的任何位置放置任意个数的Exit Do语句，随时跳出DoLoop循环。Exit Do通常用于条件判断之后，例如IfThen，在这种情况下，Exit Do语句将控制权转移到紧接在Loop命令之后的语句。如果Exit Do使用在嵌套的DoLoop语句中，则Exit Do会将控制权转移到Exit Do所在位置的外层循环。 【例5-6】求累加和1 + 2 + 3 + 100。 分析：采用累加的方法，用变量s来存放累加的和（开始为0），用变量n来存放“加数”（加到s中的数）。这里n又称为计数器，从1开始到100为止。,编写如下VBScript程序代码： 累加和计算 累加和计算 求累加和1 + 2 + 3 + 100。 s = 0: n = 1 Do While n ,执行VBScript程序，浏览器显示。,说明：还可以改为直到型，只需将其中VBScript代码改为： s = 0: n = 1 Do While n ,【例5-7】输入一个正整数，利用“当型”循环判断是否素数。 分析：所谓“素数”是指除了1和该数本身，不能被任何整数整除的数。判断一个自然数n（n3）是否素数，只要依次用2 作除数去除n，若n不能被其中任何一个数整除，则n即为素数，如图5-5所示。 编写如下VBScript程序代码： 判断素数 判断素数 请输入一个大于2的自然数： x = Text1.value,Select Case True Case Not IsNumeric(x) MsgBox “您输入的不是数值数据“ Case x 2147483647 MsgBox “此数太大!“, vbInformation + vbOKOnly, “注意“ Case Else s = 0: i = 2 Do While i ,(2) 后测型DoLoop循环 后测型DoLoop循环结构，首先执行循环体，然后判断条件，根据条件决定是否继续执行循环，因此执行循环的最少次数为1。其语法为： Do 语句列1 Exit Do 语句列2 Loop While | Until 条件 说明：, DoWhile Loop是（后测型）当型循环语句，当条件为真（True）时继续执行循环体，条件为假（False）时终止循环；DoUntil Loop是（后测型）直到型循环语句，条件为假时继续执行循环体，直到条件为真时终止循环。 “条件”是条件表达式，为循环的条件。其值为True或False。如果省略条件（Null），则条件会被当作False。 “语句列”是一条或多条命令（循环体），它们将被重复当或直到条件为True。, 在DoLoop中可以在任何位置放置任意个数的Exit Do语句，随时跳出DoLoop循环。Exit Do通常用于条件判断之后，例如IfThen，在这种情况下，Exit Do语句将控制权转移到紧接在Loop命令之后的语句。如果Exit Do使用在嵌套的DoLoop语句中，则Exit Do会将控制权转移到Exit Do所在位置的外层循环。 【例5-8】输入两个正整数，求它们的最大公约数。 分析：求最大公约数可以用“辗转相除法”，方法如下：, 以大数m作被除数，小数n做除数，相除后余数为r。 若r 0，则m n，n r，继续相除得到新的r。若仍有r 0，则重复此过程，直到r = 0为止。 最后的n就是最大公约数。 编写如下VBScript程序代码： 求最大公约数 求最大公约数 请输入两个自然数： , m = Text1.value n = Text2.value If Not (IsNumeric(m) And IsNumeric(n) Then MsgBox “输入的不是数值“ : Exit Sub If n * m = 0 Then MsgBox “两数都不能为0!“ : Exit Sub If m 0 MsgBox “最大公约数是“ & m 执行VBScript程序，浏览器显示。,2. While.Wend语句 当循环（While.Wend）比较简单，其特点是，只要指定的条件为True，则会重复执行一系列的语句。其语法格式为： While条件 语句列 Wend 说明： 条件为必要参数，可以是关系表达式或布尔表达式。如果条件为Null，则条件会视为False。, 如果条件为True，则所有的语句列都会执行，一直执行到Wend语句。然后再回到While语句，并再一次检查条件，如果条件还是为True，则重复执行。否则程序会从Wend语句之后的语句继续执行。 【例5-9】利用下述公式计算圆周率的近似值：,当最后一项的绝对值小于0.000001时停止计算。,编写如下VBScript程序代码： 计算圆周率 计算圆周率 k = 1: s = 1: t = 1: m = 1 While Abs(t) 0.0000001 k = k + 2 m = -m t = m / k s = s + t Wend MsgBox “圆周率=“ & 4 * s 执行VBScript程序，浏览器显示。,3. For.Next语句 在不知道循环内需要执行多少次语句时，宜用DoLoop循环。但是，若知道要执行多少次循环时，则最好使用For.Next循环。与DoLoop循环不同，For循环使用一个循环变量，每重复一次循环之后，循环变量的值就会自动增加或者减少。其语法为： For循环变量=初值To终值Step步长 语句列1 Exit For 语句列2 Next 循环变量,说明： 循环变量为必要参数，是用做循环计数器的数值变量，这个变量不能是数组元素。 初值和终值都是必要参数，如果没有指定步长，则缺省值为1。 步长可以是正数或负数。步长参数值决定循环的执行情况：如果步长的值为正数，则必须初值 = 终值。 当所有循环中的语句都执行后，步长的值会加到循环变量中。此时，循环中的语句可能会再次执行（基于循环开始执行时同样的测试），也可能是退出循环并从Next语句之后的语句继续执行。, 可以在循环中的任何位置放置任意个Exit For语句，随时退出循环。 如果省略Next语句中的 循环变量，将不影响循环的执行。但如果Next语句在它相对应的For语句之前出现，则会产生错误。 在循环中改变循环变量的值，将会使程序代码的阅读和调试变得困难。 【例5-10】“同构数”是指这样的整数：它恰好出现在其平方数的右端，例如1和5就是这样的数。试找出19999之间的全部“同构数”。,分析：1位同构数n应满足条件：n=n2 Mod 10， 2位同构数n应满足条件：n=n2 Mod 100， 3位同构数n应满足条件：n=n2 Mod 1000， 4位同构数n应满足条件：n=n2 Mod 10000。 编写如下VBScript程序代码： 同构数 找出19999之间的全部“同构数” p=“ For n = 1 To 9999,If n = n2 Mod 10 Or n = n2 Mod 100 Or _ n = n2 Mod 1000 Or n = n2 Mod 10000 Then p = p & n & “ “ & n2 & Chr(13) End If Next MsgBox “同构数为：“ & Chr(13) & p 在浏览器中执行打开 VBScript程序，显示如图 5-8所示。,图5-8 同构数,4. For EachNext循环语句 For Each.Next循环与For.Next循环类似。For Each.Next不是将语句运行指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。其语法格式为： For Each元素In名称 语句列1 Exit For 语句列2 Next 元素 说明：, 元素是用来枚举集合或数组中所有元素的变量。对于集合，元素可能是Variant变量、通用Object变量或任意指定的Automation对象变量。对于数组，元素只能是Variant变量。 名称是指对象集合或数组的名称。 【例5-11】在窗体中有若干文本框，在代码中创建Dictionary对象，并赋值。然后将Dictionary对象的内容分别放置在多个文本框中。 编写如下VBScript程序代码： 控件组 , Dim d 创建一个变量 Set d = CreateObject(“Scripting.Dictionary“) d.Add 0, “北京” 添加键和项目 d.Add 1, “上海“ d.Add 2, “天津“ d.Add 3, “重庆“ For Each i in d text1(i).Value = d.Item(i) Next ,在浏览器中执行打开VBScript程序，显示结果。,5. 循环的嵌套 通常把循环体内不含循环语句的循环称为单重（层）循环，而把循环体内含有循环语句的循环称为多重循环，或称循环的嵌套。根据嵌套的层数有二重循环、三重循环等等。 上面介绍的循环结构既可以单独嵌套，也可以互相嵌套，但是要注意内外循环不能交叉。 【例5-12】求从1000到1100之间的所有素数。 分析：例5-7介绍了利用DoLoop循环判断素数的方法，现在只需对10001100之间的各整数依次测试即可。,编写如下VBScript程序代码： 素数 找出10001100之间的所有素数 p=“ For n = 1001 To 1100 Step 2 s = 0 For i = 2 To Sqr(n) If n Mod i = 0 Then s = 1: Exit For Next If s = 0 Then p = p & Chr(13) & n Next MsgBox “10001100之间素数有：“ & Chr(13) & p ,在浏览器中执行程序，显示结果。,5.2.3 VBScript的过程 1. Sub过程 2. Function过程 3. 参数的传递方式,1. Sub过程 VBScript的Sub过程分为事件过程和通用过程两种。事件过程是当发生某个事件时，对该事件做出响应的程序段；而通用过程则是独立于事件过程的程序段，可以被其他过程调用。本课只介绍通用过程，事件过程将在第6课中讨论。 Sub过程是包含在Sub和End Sub语句之间的一组VBScript语句，执行操作但不返回值。 (1) Sub过程的定义,Sub过程的定义从Sub命令开始，其格式为： Public Default | Private Sub过程名( 形参表 ) 语句列 Exit Sub 语句列 End Sub,参数说明见表5-1。 表5-1 Sub过程的参数说明,其中形参表中出现的参数称为形式参数，简称为形参。它并不代表一个实际的存在的变量，也没有固定的值。在调用此过程时它被一确定的值所代替。形式参数的名字并不重要，重要的是其所表示的关系和调用时所给定的实际参数。 形参表中形参的语法为： ByVal | ByRef变量名( ) 其参数说明见表5-2。 表5-2 形参的参数说明,(2) Sub过程的调用 建立Sub过程的目的之一就是减少重复代码，将公共语句放入分离开的过程并由代码来调用它。 每次调用Sub过程都会执行Sub和End Sub之间的语句列。Sub过程以Sub开始，以End Sub结束。当程序遇到End Sub时，将退出过程，并立即返回到调用语句的后续语句。 调用Sub过程有两种方法： 使用Call语句：Call过程名( 实参表 ) 直接使用过程名：过程名实参表,说明： 实参表是实际参数列表，参数与参数之间要用逗号分隔。 当用Call语句调用执行过程时，其过程名后必须加括号，若有参数，则参数必须放在括号之内。 若省略Call关键字，则过程名后不能加括号，若有参数，则参数直接跟在过程名之后，参数与过程名之间用空格隔开，参数与参数之间用逗号分隔。 【例5-13】编制判断素数的Sub过程，验证哥德巴赫猜想：一个不小于6的偶数可以表示为两个素数之和。例如：6 = 3 + 3，8 = 3 + 5，10 = 3 + 7，,分析：假设有一个偶数n，将它表示为两个整数a和b的和，即n = a + b。如果n = 10，先令a = 2，判断2是否是素数，经检查2是素数，由于b = n - a，故b的值为8，经检查8不是素数，则这一组合（10 = 2 + 8）不合要求。再使a加1，即a = 3，经检查3是素数，b = n a = 7，经检查7也是素数，则这一组合（10 = 3 + 7）符合要求。 由于需要多次检查一个整数是否素数，所以把判断是否素数这一过程编写为一个Sub程序Prime。,编写如下VBScript程序代码： 验证哥德巴赫猜想 Sub Prime(m, f) f = True If m 3 Then For i = 3 To Sqr(m) If m Mod i = 0 Then f = False: Exit For Next End If End Sub 验证哥德巴赫猜想：一个不小于6的偶数可以表示为两个素数之和 请输入一个不小于6的偶数： , n = Text1.value If Not IsNumeric(n) Then MsgBox “输入的不是数值数据“ : Exit Sub If n 0 Then MsgBox “必须输入大于6的偶数,请重新输入!“ : Exit Sub For x = 3 To n / 2 Step 2 Call Prime(x, p) If p Then y = n - x: Call Prime(y, p) If p Then MsgBox n & “ = “ & x & “+“ & y : Exit For End If Next 在浏览器中执行VBScript程序，显示结果。,2. Function过程 Function过程与Sub过程非常相似，只有关键的一点区别：函数有返回值。 (1) Function过程的定义 Function过程的定义格式为： Public Default | Private Function函数名(形参表) 语句列 函数名=表达式 Exit Sub 语句列 函数名=表达式 End Function 其中表达式为Function过程的返回值，其他参数同Sub过程。,(2) Function过程的调用 Function过程的调用比较简单，可以在表达式中写上它的名字。还可以像调用Sub过程那样调用Function过程。下列代码调用同一个Function过程： Call Hypotenuse (3, 6) Hypotenuse 3, 6 当用这种方法调用函数时，VBScript放弃返回值。函数可以没有参数，在调用无参函数时不发生虚实结合。调用无参函数得到一个固定的值，如下述无参函数： Function F2 F2 = “Welcome to beijing“ End Function 可如下调用： MsgBox F2,【例5-14】编写求两数最大公约数的Function过程。在网页中输入3个整数，调用Function过程求出3个整数的最大公约数。 编写如下VBScript程序代码： 最大公约数 Function Hcf(k, h) If k 0 k = h: h = r: r = k Mod h Loop Hcf = h End Function ,求3个数的最大公约数 请输入3个自然数： l = Text1.value m = Text2.value n = Text3.value If IsNumeric(l) And IsNumeric(m) And IsNumeric(n) Then If l * m * n = 0 Then Exit Sub MsgBox “3个数的最大公约数是:“ & Hcf(Hcf(l, m), n) Else MsgBox “您输入的不是数值数据“ End If 在浏览器中执行VBScript程序，显示结果。,3. 参数的传递方式 传递参数的方式有两种：如果调用语句中的实际参数是常量或表达式，或者定义过程时选用ByVall关键字，就可以按值传递。如果调用语句中的实际参数为变量，或者定义过程时选用ByRefl关键字，就可以按地址传递。 (1) 按地址传递参数 按地址传递参数，就是让过程根据变量的内存地址去访问实际变量的内容，即形式参数与实际参数使用相同的内存地址单元，这样通过子过程就可以改变变量的值。系统缺省按地址传递参数。在传址调用时，实际参数必须是变量，常量或表达式无法传址。,(2) 按值传递参数 按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。 当要求变量按值传送时，可以先把变量变成一个表达式，把变量转换成表达式的最简单的方法就是把它放在括号内。例如把变量a变为一个表达式：(a)。 也可以在定义过程时用ByVal关键字指出参数是按值来传递的，例如： Sub PostAccounts( ByVal intAcctNum ) 这里放语句 End Sub 下面给出的程序，可以理解按值传递参数。,【例5-15】求两个整数的最大公约数和最小公倍数，如图5-13所示。 编写如下VBScript程序代码： 最大公约数与最小公倍数 Function Hcf(m, n) If m 0 m = n: n = r: r = m Mod n Loop Hcf = n End Function 求最大公约数与最小公倍数 请输入2个自然数：, n = Text1.value m = Text2.value If IsNumeric(n) And IsNumeric(m) Then If n * m = 0 Then Exit Sub p = n & “,“ & m & “的最大公约数是:“ & Hcf(n), (m) p = p & Chr(13) & n & “,“ & m & “的最小公倍数是:“ p = p & n * m / Hcf(n), (m) MsgBox p Else MsgBox “输入的不是数值数据“ End If ,说明： 代码中使用的传值方式是将实参变量用括号括起。 过程中的变量名即使与主程序中使用的变量名相同，在内存中也占用不同的内存单元地址。在执行过程时即使其变量内容发生变化，主程序中的变量内容并不会随之改变。 用传值调用这种传递参数的方法只能传递计算值，如数值、字符串。 值参数与变量参数的一种重要区别是，值参数对应的实参是表达式，而变量参数对应的只能是变量。,采用值参数只能从外界向过程（函数）传入信息，但不能传出；而采用变量参数（传址）则既能传入、又能传出。正是由于不能传出，过程结束后，值参数的值就不会影响外界的任何量，因而在一定意义上说，值参数比较安全。 变量参数和值参数各有特点，采用哪一种更合适，则视需要情况而定。一般来说，需要传出参数值时应该用变量参数，否则采用值参数为好。,5.3 上机练习 【练习5-1】有编号110的10个球，编写程序，在其中随机抽取6个球，并输出它们的编号。 在记事本中编写如下VBScript程序代码： 随机取号 随机取号 有编号110的10个球，在其中随机抽取6个球 s=10 redim t(s),c(6) for each j in t j=0 next 随机抽取编号 Randomize timer,for j=1 to 6 k=int(rnd*s+1)