实验01vbscript实验.doc

实验01 ASP脚本语言（二） 一、实验目的 掌握VBScript脚本语言的 循环语句、子程序和函数 二、实验内容（文件名中的XX 用学号代替） 6、循环 6.1 For … Next 语句 语法 For Counter=Start To End [Step Increment] [程序代码段] [Exit For] [程序代码段] Next 其中：Counter是计数值，Start是初始值，End是终止值；Step Increment是步长（可省略） 实验范例[文件名：XX_2_07.asp] % Option Explicit Const cntMsg=”Hello,world!” Dim I,strMsg For I=1 to 7 strMsg=”font size=” I “” cntMsg “/fontbr” Response.Write strMsg Next % 6.2 While … WEnd 语句 语法 While Expression [程序代码段] WEnd 实例（略） 6.3 Do … Loop 语句 语法 Do [{While | Until} Expression] [程序代码段] [Exit Do] [程序代码段] Loop 或 Do [程序代码段] [Exit Do] [程序代码段] Loop [{While | Until} Expression] 实验范例[文件名：XX_2_08.asp] （九九乘法表） % Option Explicit Const cntMax=9 Dim I,j Response.write “h3九九乘法表/h3” Response.write “table boder=1 width=’90%’” Response.write “tr align=’center’ bgcolor=’lightblue’” Response.write “td /td” For I=2 to cntMax Response.write “td” I “/td” Next Response.write “/tr” ‘问题：后面程序请补全！ 6.4 For Each … Next 语句 语法 For Each Element In Group [程序代码段] [Exit FOr] [程序代码段] Next 其中：Element是一个变量，Group泛指数组或集合对象（Collection） [文件名：XX_2_09.asp] % Option Explicit Dim aryNum(5) Dim intSum,item,I AryNum(0)=25:aryNum(1)=18 AryNum(2)=16:aryNum(3)=20 AryNum(4)=62:aryNum(5)=118 I=1 For Each item in aryNum Response.write “数组字符” I “:” item “br” IntSum=intSum+item I=I+1 Next Response.write “hr数组总和为：” intSum % 7、子程序、函数 7、1 自定义子程序（Sub procedure）子程序、函数（Function） 语法 Sub Subname([arguments]) [命令或程序区段] End Sub 实验范例[文件名：XX_2_10.asp] % Option Explicit Const cntPI=3.14159 Sub Main() Dim sngR sngR=CSng(Request.Form(“R”)) Cal_Area sngR End Sub Sub Cal_Area(sngR) Dim sngArea sngArea=0.5*cntPI*(sngR^2) Response.write “圆面积为：” sngArea “!” End Sub % html headtitle求圆面积/title /head body h3求圆面积/h3 form method=”post” name=”frm1” 请输入半径：input name=”R” maxlength=6 size=6brhr input type=submit value=”计算” input type=reset value=”清除” /form % Main % /body /html 7、2 子程序参数传递方式 两种方式：Call by Value（传值调用）与Call by Reference（传址调用，VBScript默认方式）。通过下面两个范例，比较两种方式的差别。 方式一Call