第5课 VBScript编程语言(二).ppt

第5课 VBScript编程语言（二） 5.1 课前导读 5.2 课堂教学 5.3 上机练习 5.4 课后作业 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. 单条件选择结构 单条件选择结构是最常用的双分支选择结构。 (1) 单行If语句 实现单条件选择结构最简单的语句是单行If语句，其语法格式为： If〈条件〉Then 〈语句1〉 [ Else〈语句2〉 说明： ① 当程序运行到If语句时，首先测试〈条件〉。如果条件为True，则执行Then之后的语句。如果条件为False，并且有Else子句，则程序会执行Else部分的语句2。而在执行完Then或Else之后的语句后，会从End If之后的语句继续执行。 ② Else子句是可选的。 ③ 可以在〈语句1〉或〈语句2〉中使用冒号（:）将多个命令组合成一条语句。 【例5-1】下面的代码测试输入的数据是否有效的数值。 HTML HEADTITLE简单验证/TITLE/HEAD BODYH3简单验证/H3HR 请输入数值数据： INPUT name=Text1 TYPE=TEXT SIZE=10P INPUT TYPE=Button NAME=Button1 VALUE=确认 SCRIPT FOR=Button1 EVENT=onClick_ LANGUAGE=VBScript x = Text1.value If IsNumeric(x) Then p = 数值数据是： _ x Else p = 不是数值数据 MsgBox 您输入的 p /SCRIPT /BODY /HTML 以5_1.htm或5_1.asp为文件名存盘，存放位置为默认的主目录c:\inetpub\wwwroot。打开浏览器，在地址栏中直接输入： /5_1.htm (2) If语句块 当Then部分和Else部分包含较多内容时，必须用多个语句行来实现。If语句块又称为多行If语句，其语法结构为： If〈条件1〉Then 语句组1 [Else [语句组2]] End If 说明： ① 当程序运行到If块时，首先测试〈条件〉。如果条件为True，则执行Then之后的语句。如果条件为False，并且有Else子句，则程序会执行Else部分的语句组2。而在执行完Then或Else之后的语句组后，会从End If之后的语句继续执行。 ② Else子句是可选的。 【例5-2】将例5-1中的行If语句改为使用If语句块。 HTML HEADTITLE简单验证/TITLE/HEAD BODYH3简单验证/H3HR 请输入数值数据： input name=Text1 TYPE=TEXT SIZE=10P INPUT TYPE=Button NAME=Button1 VALUE=确认 SCRIPT FOR=Button1 EVENT=onClick LANGUAGE=VBScript x = Text1.value If Not IsNumeric(x) Then MsgBox 您输入的不是数值数据 Else MsgBox 您输入的数据是： x End If /SCRIPT /BODY /HTML (3) If语句的嵌套 If语句可以嵌套使用，即在If语句的语句块使用If语句。 【例5-3】铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过50公斤时，每公斤0.25元，超过50公斤而不超过100公斤