第03章节web应用程序开发.ppt

3.1.6 循环语句 【例】下面是演示For…Next语句使用的例子For.asp。 ?HTMLHEADTITLE演示While...Wend语句的使用/TITLE/HEAD BODY %Dim i, arr(10) arr()数组中保存周1-周日的值班人员名单，arr(0)保存周日 arr(0) = 小李 arr(1) = 小王 …… arr(6) = 小蔡 变量person保存要查询的值班人员姓名 person = 小吴 For i = 0 To 6 If person = arr(i) Then If i = 0 Then Response.Write(person 在周日值班) Else Response.Write(person 在周 CStr(i) 值班) End If Exit For End If Next% /BODY /HTML 3.1.6 循环语句 For Each...Next语句 For Each 变量 In 集合或数组 [语句块] [Exit For] [语句块] Next [变量] 【例】下面是演示For Each…Next语句使用的例子ForEach.asp。? HTMLHEADTITLE演示For Each...Next语句的使用/TITLE/HEAD BODY %Dim Sum Dim Arr 生成一个数组Arr Arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) Response.Write(使用For Each语句显示数组中的所有奇数 BR) Sum = 0 For Each i In Arr If i Mod 2 = 1 Then Response.Write(CStr(i) BR) End If Next% /BODY /HTML 3.1.7 自定义过程和函数 创建自定义过程 使用Sub命令可以创建自定义过程，语法如下： ?[Public [Default]| Private] Sub 过程名 [( 参数列表 )] [语句块] [Exit Sub] [语句块] End Sub 可以使用Call语句调用自定义过程：? Call 过程名 [(参数列表)] 3.1.7 自定义过程和函数 【例】下面是一个VBScript过程的例子Sub.asp。过程OnDuty()的功能是根据参数中的姓名输出他在星期几值班。? Sub OnDuty(ByVal person) Dim i, arr(10) arr()数组中保存周1-周日的值班人员名单，arr(0)保存周日 arr(0) = 小李 arr(1) = 小王 arr(2) = 小张 arr(3) = 小周 arr(4) = 小吴 arr(5) = 小赵 arr(6) = 小蔡 变量person保存要查询的值班人员姓名 For i = 0 To 6 If person = arr(i) Then If i = 0 Then Response.Write(person 在周日值班) Else Response.Write(person 在周 CStr(i) 值班) End If Exit For End If Next End Sub ? 可以使用下面的方法调用过程Week()。 Call OnDuty(小吴) 3.1.7 自定义过程和函数 创建自定义函数 使用Function命令可以创建自定义函数：? [Public [Default]| Private] Function 函数名 [(参数列表)] [语句块] [函数名 = 表达式] [Exit Function] [语句块] [函数名 = 表达式] End Function 3.1.7 自定义过程和函数 【例】将前面介绍的过程Week()改写为函数: Function OnDuty(ByVal person) Dim i, arr(10) arr()数组中保存周1-周日的值班人员名单，arr(0)保存周日 arr(0) = 小李 arr(1) = 小王 arr(2) = 小张 arr(3) = 小周 arr(4) = 小吴 arr(5) = 小赵 arr(6) = 小蔡 变量person保存要查询