第五讲、vbscript循环语句、数组

1、第五讲 VBScript控制语句循环控制语句和数组、函数、过程简介1回顾实验情况标签的使用Sub_onclickForm表单Document和window对象Vbscript概述变量定义内置函数：now（）、hour（）、minute（）second（）、isnumeric（）、cint（）、csng（）、len（）、mid（）、randomize、rnd（）If语句2学习要点了解循环语句概念掌握循环语句Fornext语句结构掌握循环语句Doloop语句结构掌握循环语句Whilewend语句结构了解数组的概念了解过程和函数的概念3使用循环语句的目的： 重复执行代码在VBScript中可使用下列

2、循环语句：1.Do.Loop：当（或直到）条件为True时循环。2.While.Wend：当条件为True时循环。3.For.Next：指定循环次数，使用计数器重复执行语句。注：循环结构的执行过程，总是在一定条件的控制下对循环体进行重复操作，循环结构一定要有终止的时候。4ForNext语句For.Next 语句用于将语句块运行指定的次数。在循环中使用计数器变量，该变量的值随每一次循环增加或减少。格式：FOR = TO STEP 循环体NEXT5ForNext语句说明：x是循环控制变量，又称为计数器变量，必须为数值型初值e1为循环起始值，终值e2为循环的结束值步长e3为循环控制变量的每次改变增量

3、，e3为1时可以省略不写STEP 1循环体中可以包含Exit For语句，强制结束循环结构，语句跳出到Next后一条语句6ForNext语句7ForNext语句For循环中循环变量值的变化For 语句和if 语句的结合例：猜数游戏和用户名检测Exit for 的使用多重循环例：输出菱形8DoLoop语句格式1：Do 执行循环体 循环体Loop While 判断条件，如果条件成立回到Do语句，继续下一次循环；条件不成立时结束循环格式2 ：先判断条件，如果条件成立就执行循环体；条件不成立时结束循环 Do While 循环体Loop 回到Do语句，继续下一次循环条件的判断 9DoLoop语句格式1：

4、 先判断条件，如果条件成立就结束循环体；条件不成立时执行循环体 Do Until 循环体 Loop 回到Do语句，继续下一次循环条件的判断格式2： Do 执行循环体 循环体Loop Until 判断条件，如果条件不成立回到Do语句，继续下一次循环；条件成立时结束循环 10DoLoop语句退出循环: Exit Do语句用于退出Do.Loop 循环。因为通常只是在某些特殊情况下要退出循环（例如要避免死循环），所以可在 If.Then.Else 语句的 True 语句块中使用Exit Do语句。如果条件为False，循环将照常运行。11WhileWend语句格式：While Wend说明：While

5、.Wend 语句是为那些熟悉其用法的用户提供的。但是由于 While.Wend 缺少灵活性，所以建议最好使用 Do.Loop 语句。12For Each.Next语句For Each.Next循环与For.Next循环类似。For Each.Next不是将语句运行指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。13变量作用域变量的作用域指的是变量的有效范围，在VBScript中分为过程内有效和整个程序中都有效。在变量过程内部声明的变量称为过程级变量或局部变量，这样的变量只有在声明它们的过程中才能使用，即无法在过程外部访问；过程外部声明

6、的变量称为脚本级变量或全局变量，即在同一个文件中的任何脚本命令均可访问和修改该变量的值。14VBScript中的数组将多个相关值赋给一个变量更为方便，因此可以创建包含一系列值的变量，称为数组变量。数组变量和标量变量是以相同的方式声明的，唯一的区别是声明数组变量时变量名后面带有括号 ( )。下例声明了一个包含 11 个元素的一维数组：Dim A(10)虽然括号中显示的数字是 10，但由于在 VBScript 中所有数组都是基于 0 的，所以这个数组实际上包含 11 个元素。在基于 0 的数组中，数组元素的数目总是括号中显示的数目加 1。这种数组被称为固定大小的数组。15VBScript中的数组动

7、态数组动态数组，即在运行脚本时大小发生变化的数组。对数组的最初声明使用 Dim 语句或 ReDim 语句。但是对于动态数组，括号中不包含任何数字。例如：Dim MyArray()ReDim MyArray(30)使用 Preserve 关键字在重新调整大小时保留数组的内容ReDim Preserve MyArray(30)16VBScript中的Sub过程Sub 过程是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句，执行操作但不返回值。Sub 过程可以使用参数（由调用过程传递的常数、变量或表达式）。如果 Sub 过程无任何参数，则 Sub 语句必须包含空括号 ( )

8、。17VBScript中的Sub过程Sub过程格式：Sub (形参列表) Sub过程体End Sub过程体中可以出现Exit Sub语句强制退出通用过程形数列表中有多个参数时用“ ,” 分割18Sub过程的调用格式：Call Sub过程名(实参列表)Sub过程名 实参列表调用 Sub 过程时，只需输入过程名及所有参数值，参数值之间使用逗号分隔。不需使用 Call 语句，但如果使用了此语句，则必须将所有参数包含在括号之中。请注意当不使用 Call 语句进行调用时，括号被省略。19VBScript中的Function过程Function 过程是包含在 Function 和 End Function

9、 语句之间的一组 VBScript 语句。Function 过程与 Sub 过程类似，但是 Function 过程可以返回值。Function 过程可以使用参数（由调用过程传递的常数、变量或表达式）。如果 Function 过程无任何参数，则 Function 语句必须包含空括号 ( )。Function 过程通过函数名返回一个值，这个值是在过程的语句中赋给函数名的。Function 返回值的数据类型总是 Variant。 20VBScript中的Function过程Function过程格式：Function (形参列表) Function过程体End Function过程体中可以出现Exit Fu