VBScript脚本语言.ppt

1、第7章 VBScript脚本语言,7.1VBScript简述 7.2VBScript中的基本语法 7.3VBScript语句 7.4VBScript的过程与函数 7.5 VBScript的内置函数,7.1VBScript简述 7.1.1 VBScript的特点 VBScript是Microsoft微软公司开发的 Visual Basic语言的一个子集，专门为浏 览器IE开发的一种简单、易学的脚本语言. VBScript具有以下特点： 1) 语法简单，执行效率高(解释执行) 2) 多种嵌入形式(内嵌式和外联式) 3) 嵌入方式简单,第七章 VBScript 脚本语言,7.1VBScript简述

2、7.1.2 VBScript与Visual Basic的区别 1）变量类型和作用范围 VBScript只有一种基本数据类型,即变 体类型 Variant,所有变量定义的数据类型 都是Variant。 2）不能使用某些内置函数 3）增加了一些函数和对象 4）处理错误及调试的方式不同 不能以调试方式检查程序的错误。,第七章 VBScript 脚本语言,7.1VBScript简述 7.1.3 对象的属性、方法和事件 一、对象的概念 对象就是具有一定特性，能进行相关操作的 实体。在现实生活中，任何一个实体都可以视为 一个对象（Object）。,第七章 VBScript 脚本语言,1、对象的属性 对象的

3、属性就是对象所具有的一组特性，不 同的对象有不同的属性（Property）。 如：气球属性：包括气球的直径、颜色、气 球状态(充气或未充气)、气球的寿命等。 设置属性的格式：对象名.属性名=属性值 如：document.bgcolor=“green”,第七章 VBScript 脚本语言,2、对象的方法 对象的方法（Method）是指对象能够进行的操作，它是嵌入在对象中的程序代码。 对象的方法和对象的事件很相似，都用于完成某种特定的功能。 调用对象方法的语句格式：对象名.方法名 例如：Document.close 其中：Document是网页文档对象 close是该对象的关闭方法,第七章 VBS

4、cript 脚本语言,3、对象的事件 对象的事件（Event）则是对象对外部环境变化作出的响应。如：把气球看成一个对象，那么气球对刺破它的事件响应是放气，对气球松开手事件的响应是升空。不同的对象能够识别不同的事件。 在VBScript中，事件是预先定义好的、能够被对象识别的动作。如单击（OnClick）鼠标左键事件、页面加载（OnLoad）事件、移动鼠标（OnMouseMove）事件等。,气球手松开事件 的响应是升空,第七章 VBScript 脚本语言,4、对象的属性、方法和事件小结 属性用于描述对象的特征，方法为对象实施一些动作，对象的动作则常常要触发事件。不同的对象具有不同的属性、方法和事

5、件。 Vbscript中，有关浏览器属性是被封装在一系列的对象中，这些对象是按层次组织的。脚本对象模型中最高层的是Windows对象，它是下层文档对象Document的父对象。 Windows对象：描述浏览器窗口属性和操作。 Document对象：文档对象代表当前HTML文档。,第七章 VBScript 脚本语言,二、Window对象 Window窗口对象，是所有浏览器脚本程序 的基础。Window对象是浏览器自动定义的顶层对 象，每打开一个窗口就定义了一个窗口对象。 1、窗口对象的属性 窗口对象属性见书P188书表7.2所示。 如：Document属性 2、窗口对象的方法 窗口对象的方法见书

6、P189表7.3所示。 如：Alert(String)方法 3、窗口对象的事件 Window对象最常用的事件： onLoad：页面载入浏览器时所引发的事件。 onUnload：页面卸载时所引发的事件。,第七章 VBScript 脚本语言,三、Document对象 Document文档对象，也是一种非常重要的对 象类型。通过文档对象，可以更新正在装入或已 经装入的文档，并可以访问装入文档中所包含的 HTML元素。 1、文档对象的属性见表7.4所示。 例如：document.bgcolor=green 2、文档对象的方法见表7.5所示 例如：Document.write * & ,第七章 VBSc

7、ript 脚本语言,四、对象的事件过程 事件过程（Event Procedure）是指附在 对象上的程序代码，是事件触发后的处理程序 事件过程的语法形式如下： Sub 对象名_事件过程名（参数列表） (响应事件代码） End Sub 网页源代码见下页,第七章 VBScript 脚本语言,网页文件7-1.html的代码如下： （可使用文本编辑器建立，如记事本） 事件过程 Sub btmbutton_onclick() MsgBox 欢迎使用学校教学网 End sub 当单击命令按钮触发事件时，就会执行响应的代码， 显示一个对话框。,第七章 VBScript 脚本语言,演示 例7.1,7.1.4

8、VBScript代码的基本格式 VBScript脚本代码必须嵌入ScriptScript 标记之间。它在HTML文件中的基本格式如下： script language =language EVENT=event For=object 其中： 1)LANGUAGE：表示使用何种脚本语言。 2)EVENT：指定与该脚本部分相关联的事件。 3)FOR：指定与事件相关联的对象。 4)是用来注释一段代码的注释标记，其作用是 当浏览器不支持某种脚本语言时，不执行该脚本代 码，也不把程序代码显示在网页上。 5）LANGUAGE“VBScript”简写为LANGUAGEVBS。,第7章 VBScript脚本语

9、言,7.1VBScript简述 7.2VBScript中的基本语法 7.3VBScript语句 7.4VBScript的过程与函数 7.5 VBScript的内置函数,7.2 VBScript中的基本语法 7.2.1 VBScript的书写规则 1、脚本代码中不区分大小写字母 2、书写语句自由 在同一行上可以书写多条语句，语句间用冒号“:”分隔。 一条语句可分若干行书写，在本行后加入续行符空格和下划线“ ”）。 一行中最多容纳255个字符。 3、注释(非执行语句)用于说明程序用途和功能 注释以单引号 开始，可独立作为一个语 句，直接出现在任意语句的后面。,第七章 VBScript 脚本语言,7

10、.2.2 VBScript中的常量、变量和数据类型 一、VBScript的常量 1、常量的概念：常量是一种在程序运行过程中不会发生变化的量。 2、常量声明 常量一经声明，其值将不能改变。 常量定义格式：Const 常量名=常量值 定义数值常量：Const PI=3.14159 定义字符串常量：Const name=“飞龙” 定义日期时间型常量 Const ToData=#6-21-2005# 3、内置常量（不用声明，直接使用） VBScript的内置常量是指由系统预先定义的常量。 常见的内置常量有颜色常量、日期与时间常量、字符串 常量和MsgBox函数常量。如：vbRed、Null、True等

11、,第七章 VBScript 脚本语言,7.2.2 VBScript中的常量、变量和数据类型 二、VBScript的变量 1、变量的概念 程序运行中可以改变的量称为变量。VBScript中，基本变量的类型就是Variant 2、变量声明 每个变量必须有一个名字，称为变量名。在VBScript中可使用Dim语句声明变量。 格式为：Dim 变量名称列表 例如：Dim Name 如果要同时声明多个变量，使用逗号分隔。 例如：Dim No,Name,Sex,Age,Class,第七章 VBScript 脚本语言,3、变量的命名规则 变量的命名规则如下： 变量名的第一个字符必须是英文字母，后跟数字、下划线

12、，不能使用其他符号。 变量名不能与VBScript关键字同名。 变量名中不能有句号。 变量名的长度不能超过255个字符。 在声明的作用域内，变量名必须唯一,第七章 VBScript 脚本语言,4、变量赋值 变量的值有3种不同的数据类型：数值型、字符型和逻辑型。可通过赋值表达式给变量赋值。 其语法格式如下： 变量名表达式 对象名.属性名表达式 例如：Sum=Sum+621 Word=Thank! Document.bgcolor=Red 三、VBScript的数据类型 VBScript只有唯一的数据类型Variant。它是一个特殊的数据类型，可根据不同的使用方式，来表示不同类型的信息。,第七章

13、VBScript 脚本语言,7.2.3 VBScript表达式与运算符 VBScript有一套完整的运算符，包括算术运 算符、比较（关系）运算符、连接运算符和逻辑 运算符。 一、表达式 VBScript提供了丰富的运算符,可以构成多 种表达式。 (1) 数值表达式 (2) 字符串表达式 (3) 逻辑(布尔)表达式 数值表达式举例如下： A+B、Y+Sin(x)、Result=Number1*Number2,第七章 VBScript 脚本语言,二、运算符 1、算术运算符：用于执行数学计算的运算符。 例：5+10 mod 109/3+22 结果是:10 例：当ia=3 运算结果如下图所示:,第七章

14、 VBScript 脚本语言,2、比较运算符 用于执行比较操作的运算符。比较运算符用来对两个 表达式结果值进行比较，比较的结果是一个逻辑值，即 真（True）或假（False）。 关系运算符如下表所示：,第七章 VBScript 脚本语言,3、& 运算符(连接运算符) & 运算符是连接字符串的运算符，将两个表 达式作字符串连接。其格式为： 表达式1 & 表达式2 例如： Dim MyStr MyStr=Hello & World 返回新字符串Hello World MyStr=Check & 123 & Check 返回新 Check 123 Check 注意：使用运算符“&”时，变量与运算符

15、 “&”之间应加一个空格。,第七章 VBScript 脚本语言,4、逻辑运算符 用于执行逻辑操作的运算符用逻辑运算 符连接两个或多个关系式，组成一个逻辑 (布尔)表达式。,第七章 VBScript 脚本语言,第七章 VBScript 脚本语言,5、各种运算符的优先级别 (1) 逻辑运算符的优先级不相同，Not （逻辑非）最高，但它低于关系运算，Imp（逻辑蕴含）最低。 (2) 在表达式运算中，按照从左到右出现运算符的顺序进行计算。算术运算符=字符运算符关系运算符逻辑运算 (3) 关系表达式与逻辑表达式常常用在条件语句与循环语句中，作为条件控制程序的流程走向。,第7章 VBScript脚本语言,

16、7.1VBScript简述 7.2VBScript中的基本语法 7.3VBScript语句 7.4VBScript的过程与函数 7.5 VBScript的内置函数,7.3VBScript语句 7.3.1 条件语句 在 VBScrip中使用条件语句，有以下3种语法格式： 1、IfthenElse 语句 语法格式1： If 条件表达式 Then 语句组1 Else 语句组2 End If If结构流程如图所示：,第七章 VBScript 脚本语言,执行过程：先计算条件表达式的值，若值为真True，则执行语句组1；否则（条件为假）执行语句组2。,例7.3 根据小时数判断，当前是白天或夜晚。 部分脚本

17、代码如下： dim Thishour Thishour=hour(now() 返回系统时间小时数 If (Thishour=6) and (Thishour18) then Msgbox 现在是白天 输出显示 Else Msgbox 现在是夜晚 End if 分析代码： 取系统时间的小时数进行判断，如果小时数 在618范围内，则是白天，否则是夜晚。,第七章 VBScript 脚本语言,2、嵌套的IfthenElse语句(多条件) 语法格式2： If 条件1 Then 语句组1 ElseIf 条件2 Then 语句组2 Else 语句组N EndIf 执行过程：如果条件1(条件表达式)为True

18、，则执行语句组1后跳出If语句；如果条件2为True，则执行语句组2，然后跳出If语句；以此类推，如果条件都不符合，则执行语句组N。,第七章 VBScript 脚本语言,例7.4 按照输入的业绩金额计算奖金。 其部分代码如下： Dim X,Y X = InputBox(请输入业绩金额：) If X = 10000 Then Y = X * 0.15 ElseIf X = 8500 Then Y = X * 0.12 ElseIf X = 6500 Then Y = X * 0.1 ElseIf X = 5000 Then Y = X * 0.08 Else Y = X * 0.06 End I

19、f MsgBox “该业务员奖金为:”& Y,第七章 VBScript 脚本语言,分析程序： 键盘输入业绩金额 计算条件1的值，若值为真，则按业绩金额的15%计算奖金，然后跳出End If； 否则计算条件2的值，若值为真，则按业绩金额的12%计算奖金，然后跳出End If； 否则,以此类推。,3、Select Case语句 Select Case语句提供的功能与If语句类似， 代码更加简练易读。 语法格式3： Select Case 表达式 Case 列表值1 语句组1 Case 列表值2 语句组2 case 列表值n 语句组n Case Else 语句组 End Select,第七章 VBS

20、cript 脚本语言,例7.5 输入不同分数判断成绩的等级。 代码如下：,第七章 VBScript 脚本语言,演示 例7.5,7.3.2 循环语句 循环语句用于重复执行一组语句序 列，直到指定条件满足为止。 VBScript提供了三种循环结构：For循 环、While循环和Do循环。 For循环：按规定的次数执行循环体； While循环和Do循环：是在给定的条件 满足时执行循环体,第七章 VBScript 脚本语言,1、ForNext语句 语法格式： For 循环控制变量 = 初值 To 终值 Step 步长 语句组 Exit For 语句组 Next 其中:For、To、Step、Exit

21、For、Next是关键字 循环变量：是一个数值变量。 初值：循环变量的初值，是一个数值表达式。 终值：循环变量的终值。是一个数值表达式。 步长：是循环控制变量的增量，是一个数值表达 式。其值可以是正数、负数，但不能为0。缺省 时步长值为 1。,第七章 VBScript 脚本语言,循环语句结构流程如图所示：,第七章 VBScript 脚本语言,例7.6 按递增循环求10以内偶数之和。 例7.6 VBScript的for循环 sub tw() dim i,total total=0:i=0 for i = 2 To 10 Step 2 total=total+i next MsgBox 总和为：

22、& total end sub 分析结果： 演示 例7.6,第七章 VBScript 脚本语言,2、For.Next的嵌套循环 For.Next 构成嵌套循环时，应注意在每层 循环中的“循环变量”必须使用不同的变量名。 三层循环结构： For I = 1 To 10 For J = 1 To 10 For K = 1 To 10 . Next Next Next 例7.8 网页显示乘法九九表 程序代码如下：,第七章 VBScript 脚本语言, 例7.8 VBScript的嵌套循环 sub jjb() dim int1,int2 for int1=1 to 9 每次循环生成一行 for int

23、2=1 to int1 每次循环生成一项 Document.write cstr(int2) & & cstr(int1) & = & cstr(int1*int2) & next Document.write next end sub 分析结果： 演示 例7.8,第七章 VBScript 脚本语言,3、DOLOOP语句 可以使用 DOLOOP语句多次（次数不定）运 行语句块。语句格式如下： Do While | Until 条件表达式 语句组 Exit Do 语句组 Loop 或： Do 语句组 Exit Do 语句组 Loop While | Until 条件表达式,第七章 VBScrip

24、t 脚本语言,(1) Do While Loop语句 该语句的执行流程：首先计算条件，若为False，则跳出该语句；否则（条件为True），执行循环体，遇到Loop语句，然后再判断条件，。如图循环结构流程图。,第七章 VBScript 脚本语言,例7.9 用Do While Loop循环语句在浏览器显示10行， 每行显示5个“*”。代码如下： 例7.9 Do While Loop循环 Dim i I=1 Do While I I=I+1 Loop 分析结果： 演示 例7.9,第七章 VBScript 脚本语言,(2) DoLoop While语句 该语句的执行流程：先执行循环体，然后判断“条件

25、”，若为False，则结束循环；否则（即“条件”为True）执行循环体，然后再判断“条件”如图循环结构流程图。,第七章 VBScript 脚本语言,例7.10 DoLoop While循环语句的使用。 网页文件代码如下： 例7.10 Do Loop While循环 Dim counter,Num counter = 0 Num = 9 Do Num = Num 1 counter = counter + 1 Loop While Num 10 MsgBox 循环重复了 & counter & 次. Document.write counter= & counter & “ Document.w

26、rite num= & num 分析结果： 演示 例7.10,第七章 VBScript 脚本语言,(3) Do UntilLoop语句 首先判断“条件”，若为True，则结束循环；否则（条件为False）执行循环体，遇Loop回去判断条件直到条件为真结束循环。循环结构流程如图。,第七章 VBScript 脚本语言,例7.11 验证“角谷猜想”，即对于一个自然数,若该数为偶数，则 除以2；若该数为奇数，则乘以3并加1；将得到的数重复按该规则运 算，最终可得到1。现给定一个数n为17，试用程序来验证该过程。 网页文件代码如下： 例7.11 Do Until Loop循环 Dim n N = 17

27、Do Until n = 1 If n mod 2=0 then n = n/2 else n = n*3+1 end if Document.write & n Loop 分析结果： 演示 例7.11,第七章 VBScript 脚本语言,(4) DoLoop Until语句 首先执行循环体，然后判断“条件”，若为True（注意与DoLoop While语句相反），则跳出该语句；否则（即“条件”为False）再回去执行循环体，并判断“条件” ，循环结构流程如下图。,第七章 VBScript 脚本语言,例7.12 DoLoop Until循环语句的使用 网页文件代码如下： 例7.12 DoLoo

28、p Until循环 Dim counter,Num counter = 0:Num = 1 Do Num = Num + 1 counter = counter + 1 Loop Until Num = 10 MsgBox 循环重复了 & counter & 次。 Document.write counter= & counter & Document.write Num = & Num 分析结果： 演示 例7.12,第七章 VBScript 脚本语言,第7章 VBScript脚本语言,7.1VBScript简述 7.2VBScript中的基本语法 7.3VBScript语句 7.4VBScr

29、ipt的过程与函数 7.5 VBScript的内置函数,7.4 VBScript的过程与函数 7.4.1 Sub 过程 Sub 过程是包含在 Sub 和 End Sub 语句之 间的一组 VBScript 语句,执行操作但不返回值. 1、Sub过程的定义 语法格式如下： Public | Private Sub 过程名(形式参数表列) 语句组 Exit Sub 语句组 End Sub,第七章 VBScript 脚本语言,说明： (1) Public参数表示Sub过程可被所有脚本中的其他过程访问。 (2) Private参数表示Sub过程只可被定义该过程的脚本中其他过程访问。 (3) 如没有显式

30、地指定使用Public或 Private，则Sub过程默认为公用，即它们对于脚本中的所有其他过程都是可见的。Sub过程中局部变量的值在调用过程中不被保留。 (4) 过程名是Sub的名称，遵循标准变量命名约定。 (5) 形式参数表列为用逗号隔开的多个变量，简称为“形参”，在该Sub过程被调用时，用来接收由调用过程传递的实参(可是常数、变量或表达式)。,第七章 VBScript 脚本语言,(6)语句组是在Sub过程中执行的任何一组语句。 (7)使用Exit Sub语句可以立即退出Sub过程。可以在一个Sub 过程中任意位置出现多个Exit Sub语句。 (8)所有可执行代码都必须在过程中。不能在任

31、何其他过程中定义 Sub 过程，即过程的定义不能嵌套。 (9)Sub 过程是一个可以获取参数，执行一系列语句以及可改变其参数值的独立过程，Sub过程不能用于表达式中。 (10)可以使用过程名并跟随相应的参数列表来调用Sub过程。,第七章 VBScript 脚本语言,2、过程的调用 Sub过程的调用有两种方法： (1) 用Call语句调用Sub过程 格式1：Call 过程名(实际参数表列) 功能：将控制权转移到被调Sub过程。 Call是关键字，过程名是被调过程名，即使没有参数，圆括号也不能省略。 实际参数表列简称为“实参”，是传递给被调过程的常数、变量或表达式，各参数间以逗号分隔。 (2) 把

32、过程名作为语句调用Sub过程 格式2：过程名 实际参数表列 格式2实际上是格式1省略了 Call 关键字和“实 参”圆括号的一种形式。,第七章 VBScript 脚本语言,例7.15 定义计算圆面积的Sub过程及调用过程 Sub MainArea1() 调用者过程 Const Pi = 3.1415926 Dim R R = InputBox(“请输入圆的半径R的值”) Call Area1(Pi, R) 过程调用语句 End Sub Sub Area1(X, Y) 计算圆面积的被调过程 Dim S S = X * Y * Y MsgBox 圆面积是： & S End Sub,第七章 VBSc

33、ript 脚本语言,分析结果： Sub过程MainArea1为调用者过程，Area1 为被调过程。首先运行MainArea1()过程，当 执行到过程调用语句Call Area1(Pi, R)时， 将控制权转移到被调过程Area1(X, Y)，同时 实参Pi传递值给形参X，实参R传递值给形参 Y，然后计算圆面积并显示结果。被调过程执 行完毕，返回调用者过程。 注意：该程序仅有部分源代码，要在浏览 器上显示结果，还需完善HTML代码部分，故无 法演示。,第七章 VBScript 脚本语言,例7.16 定义Sub过程改变背景颜色,第七章 VBScript 脚本语言,演示 例7.16,7.4.2 Fu

34、nction 函数过程 与Sub 过程的不同点是 Function 过程可以返回 值。Function 过程通过函数名返回一个值，这个值是在 过程的语句中赋给函数名的。Function 返回值的数据类 型总是 Variant。 1、Function函数过程的定义 语法格式： Public | Private Function 过程名(形式参数表列) 语句组 函数名=返回值 Exit Function 语句组 函数名=返回值 End Function,第七章 VBScript 脚本语言,说明： (1) 与Sub过程类似，Function 过程是可以获取参数、执行一系列语句并改变其参数值的独立过程

35、。 与Sub过程的不同之处是：要使用函数的返回值时，可以在表达式的右边调用Function过程，这与内部函数(Sqr、Cos 或 Chr)的使用方式相同。 (2) 在表达式中，可以使用函数名，并在其后用圆括号给出相应的参数列表来调用Function过程。 (3) 要从函数返回值，需将值赋给函数名。如果没给函数名赋值, 则Function过程返回一默认值：数值函数返回0，字符串函数返回零长度字符串()。,第七章 VBScript 脚本语言,例7.17 编写转换气温的华氏度为摄氏度的Function过程,第七章 VBScript 脚本语言,演示 例7.17,第7章 VBScript脚本语言,7.1

36、VBScript简述 7.2VBScript中的基本语法 7.3VBScript语句 7.4VBScript的过程与函数 7.5 VBScript的内置函数,7.5 VBScript的内置函数 VBScript脚本语言提供了许多内置函数，要求掌握一 些常用函数的功能及使用。 7.5.1 字符串函数,第七章 VBScript 脚本语言,7.5.2 转换函数 通过转换函数将子数据类型转换成需要的数据类 型。常用的转换函数见书P219表7.12。 例如： MyDouble=65 设置变量初值65 MyString=CStr(MyDouble) 返回字符串“65” MyCharlChr(66) 返回字

37、母B MyChar2Chr(98) 返回字母b MyChar3Chr(37) 返回 7.5.3 数学函数 MyNumber = Abs(50.3) 返回 50.3 MyNumber = Abs(-50.3) 返回 50.3 MySqr = Sqr(9) 返回 3 MySqr = Sqr(21) 返回 4.582575695,第七章 VBScript 脚本语言,7.5.4 日期和时间函数 在VBScrip中，可以使用日期和时间函数来得到各种 样式的日期和时间。常用的日期和时间函数见表7.14。 例如： MyDate = #Liu 21, 2005# 指定一日期赋给变量 MyYear = Year(MyDate) MyYear值为2005 MyMonth = Month(MyD