把握语句的格式

1、把握语句的把握语句的格式、格式、功能和使用功能和使用在在HTML页面文档中嵌入页面文档中嵌入VBScript脚本脚本程序程序，可实，可实现页面与用户的交互。现页面与用户的交互。内容回顾与导入内容回顾与导入语句语句是组成程序的基本单位。是组成程序的基本单位。4.4.1 基本语句基本语句 4.4.2 条件控制语句条件控制语句 4.4.3 循环控制语句循环控制语句 4.4 VBScript 语句语句 条件控制语句是一种流程控制语句，其功能是根据条件来决定程序要执行的语句序列。 条件控制语句有If语句和Select Case语句。4.4.2 4.4.2 条件控制语句条件控制语句单（行形式的）If语句块

2、（形式的）If语句两种形式一、一、IfIf语句语句If condition Then statements1 Else statements2 格式condition 是一个数值或字符串表达式，其运算结果是True或False。statements都是一条语句或以冒号分开的多条语句；Else子句是可选子语。1 1、单、单IfIf语句语句conditionstatements1statements2TrueFalse1 1、单、单IfIf语句语句执行过程 If condition1 Then statements1 ElseIf condition2 Then statements2 . . E

3、lse statementsn End If 格式condition是一个数值或字符串表达,其运算结果是True或False。statements都是一条语句或以冒号分开的多条语句；Else子句是可选子语。2 2、块、块IfIf语句语句Truecondition1condition2statements1statements2statementsnFalseFalseTrue执行过程2 2、块、块IfIf语句语句块块IF IF 语句的不同写法：语句的不同写法： ELSE ELSE 与与 IF IF 不连续写不连续写-有几个有几个IFIF就有几就有几ENDIFENDIF。 ELSE IF ELS

4、E IF连续写连续写-只有一个只有一个ENDIFENDIF。l块块IFIF语句以语句以IFIF开始，以开始，以END END IFIF结束。结束。l块块IFIF语句可以嵌套使用。语句可以嵌套使用。2 2、块、块IfIf语句语句注意！注意！IfIf语句应用语句应用举例举例铁路托运行李费计算。铁路托运行李费计算。w表示行李表示行李重量，重量，x表示托运费。表示托运费。 w = Text1.value If Not IsNumeric(w) Then MsgBox 您输入的不是数值数据您输入的不是数值数据 Else If w = 50 Then x = 0.25 * w Else If w = 10

5、0 Then x = 0.25 * 50 + 0.35 * (w - 50) Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w - 100) End If End If MsgBox 行李的托运费是：行李的托运费是： & x & 元元 End If html . . . . =VBScript . . . . w表示行李重量表示行李重量x表示托运费表示托运费二、二、Select CaseSelect Case语句语句Select Case结构可以从多个语句块中选择执行其中的一个。Select Case语句提供的功能与IfThenElse语句类

6、似，即根据表达式的值执行几组语句之一。Select Case结构可以可以使代码更加简洁易读。 Select Case testexpression Case expressionlist1 statements-1 Case expressionlist2 statements-2 Case Else statements-nEnd Select 二、二、Select CaseSelect Case语句语句格式testexpression是任意数值或字符串表达式。expressionlist是一个或多个表达式的分界列表。statements是由冒号分割的一条或多条语句。 Select Case

7、 testexpression Case expressionlist1 statements-1 Case expressionlist2 statements-2 Case Else statements-nEnd Select 执行过程二、二、Select CaseSelect Case语句语句如果testexpression与任何Case子句中的expressionlist表达式匹配，则执行此Case子句与下一个Case子句之间的语句；Case Else用于指示若在testexpression和任何其他Case选项的expressionlist之间未找到匹配，则执行elsestatem

8、ents；如果testexpression与多个Case子句中的expressionlist表达式匹配，则只有第一个匹配表达式后的语句被执行。 二、二、Select CaseSelect Case语句语句注意！注意！语句中Select Case与End Select必须成对出现；Select Case语句可以是嵌套的，每一层嵌套的Select Case语句必须有与之匹配的End Select语句。Select CaseSelect Case语句应用举例语句应用举例商品购买时优惠价格的计算。商品购买时优惠价格的计算。X表示购买表示购买商品应付款数，商品应付款数，y表示优惠后实际付款数。表示优惠后

9、实际付款数。Select Case True Case x = 1000 And x = 2000 And x = 3000 And x 5000 y = 0.85 * x Case Else y = 0.8 * xEnd SelectMsgBox 优惠价为：优惠价为： & y & 元元 X表示购买商品应付款数表示购买商品应付款数y表示优惠后实际付款数表示优惠后实际付款数4.4.3 4.4.3 循环控制语句循环控制语句循环循环：是指在程序设计中，从某处开始有规律地反复执行某一程序块的现象，重复执行的程序块称为“循环体”。优点优点：减少代码冗余，简化程序，节约内存，提高效率。次数

10、次数：循环体执行与否及其执行次数多少是视其循环类型与条件而定。注意注意：必须确保循环体的重复执行能在适 当的时候得以终止，不能出现死循环。 4.4.3 4.4.3 循环控制语句循环控制语句DoLoop语句：在满足条件时执行循环体。WhileWend语句：当条件为True时执行循环体。ForNext语句：指定循环次数，重复执行一组语句。 四种类型For EachNext语句：对于集合 中的每项或数组中的每个元素， 重复执行一组语句。一、一、 Do DoLoopLoop语句语句四种形式前测当型循环：前测当型循环： Do While condition statements Loop前测直到型循环：

11、前测直到型循环： Do Until condition statements Loop后测当型循环：后测当型循环： Do statements Loop While condition后测直到型循环：后测直到型循环： Do statements Loop Until condition前测当型循环：前测当型循环： Do While condition statements Loop一、一、 Do DoLoopLoop语句语句说明后测当型循环：后测当型循环： Do statements Loop While condition后测直到型循环：后测直到型循环： Do statements Loop

12、 Until condition前测直到型循环：前测直到型循环： Do Until condition statements Loop可以在DoLoop循环体中的任何位置放置任意个数的Exit Do语句，随时跳出DoLoop循环，即执行 Exit Do一次，跳出一层循环 。condition是逻辑表达式，称为循环的条件，其值为True或False。在VBScript中认为非零即为真，所以条件还可以是其它类型的表达式。statements是由一条或多条语句组成的，称为循环体。一、一、 Do DoLoopLoop语句语句说明前测当型循环：前测当型循环： Do While condition sta

13、tements Loop后测当型循环：后测当型循环： Do statements Loop While condition使用While条件（当型循环） ，当条件为真(True)时执行循环体，条件为假(False)时终止循环。一、一、 Do DoLoopLoop语句语句前测直到型循环：前测直到型循环： Do Until condition statements Loop后测直到型循环：后测直到型循环： Do statements Loop Until condition使用Until条件（直到型循环）则当条件为假时执行循环体，条件为真时终止循环。说明DoLoop语句应用举例语句应用举例求累加和

14、求累加和1 + 2 + 3 +1 + 2 + 3 + 100+ 100s = 0: n = 1Do While n = 100s = s + nn = n + 1LoopMsgBox 1+2+3+100 = & s S S为累加器，初值为零为累加器，初值为零n n为循环控制变量，为循环控制变量，兼作累加分量兼作累加分量求累加和求累加和1 + 2 + 3 +1 + 2 + 3 + 100+ 100二、二、WhileWhileWendWend语句语句While condition statementsWend 格式特点：特点：只要指定的条件为True,则会重复执行循环体。二、二、While

15、WhileWendWend语句语句说明condition可以是关系表达式或布尔表达式，为必要参数。如果condition为True，则执行循环体一次，再回到While语句，并再一次检查condition，如果condition还是为True，则重复执行，否则程序会执行Wend之后的语句。While condition statementsWend 利用公式计算圆周率的近似值,当最后一项的绝对值小于0.000001时停止计算。WhileWhileWendWend语句应用举例语句应用举例9171513114 k = 1: s = 1: t = 1: m = 1While Abs(t) 0.0000

16、001k = k + 2m = -mt = m / ks = s + tWendMsgBox 圆周率= & 4 * sk表示每项分母表示每项分母t表示累加分量，兼表示累加分量，兼作循环控制变量。作循环控制变量。9171513114s表示累加和表示累加和 三、三、ForForNextNext语句语句已知循环次数时，则最好使用For.Next循环，又叫计数循环。For循环使用一个循环变量，每次循环之后，循环变量的值就会自动增加或者减少。格式三、三、ForForNextNext语句语句For counter = start To end Step increment statementsNe

17、xt counter counter为必要参数，是用做循环计数器的数值变量，这个变量不能是数组元素。start和end都是必要参数，Step increment缺省值为1。初值、终值、步长（start、end、increment）决定循环的执行情况。Increment可以是正数或负数。可以在循环中的任何位置放置任意个Exit For语句，以控制在需要时退出循环。如果省略Next语句中的 counter，将不影响循环的执行。在循环中改变循环变量的值，将会使程序代码的阅读和调试变得困难。“同构数”是指这样的整数：它恰好出现在其平方数的右端，例如1和5就是这样的数。试找出19999之间的全部“同构数

18、”。ForNext语句应用举例 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 IfNextMsgBox 同构数为：同构数为： & Chr(13) & pp表示同构数表示同构数n表示循环控制变量表示循环控制变量 For Each.Next循环是对于数组中的每个元素或对象集合中的每一项重复执行循环体。在不知道集合中元素的数目时非常有用。四、四、F