HTML课件第04章

第4章VBScript编程语言（二）,4.1VBScript的选择结构4.2VBScript的循环结构4.3VBScript过程,通过本章的学习，读者应该掌握以下内容：VBScript的选择结构VBScript的循环结构VBScript过程,4.1VBScript的选择结构,4.1.1单条件选择结构1行If语句语法：IfThenElse,例4-1IfThenElse语句用法示例。IfThenElse语句用法示例,=85ThenResponse.write好优秀哟！ElseResponse.write较上次有进步哟！%,2块If语句块If语句又称多行If语句，也就是将一个选择结构用多个语句来实现。语法：IfThenElse语句序列2EndIf,例4-2块If语句应用。块If语句实例日期型测试函数请输入日期型数据：,x=Text1.valueIfIsdate(x)Thenmsgbox您输入的是日期型数据,elseMsgBox您输入的不是日期型数据endif,例4-4某超市店庆促销，采用多购物多打折的优惠办法，条件为每位顾客一次购物累计：（1）在500元以上者，按九五折优惠；（2）在1000元以上者，按九折优惠；（3）在1500元以上者，按八五折优惠；（4）在3000元以上者，按八折优惠。,编写如下VBScript代码：优惠价格计算优惠后价格所购商品总金额：元,x=Text1.valueIfNotIsNumeric(x)ThenMsgBox您输入的不是数值数据:ExitSub,Ifx500Theny=xElseIfx1000Theny=0.95*xElseIfx1500Theny=0.9*xElseIfx100s=s+nn=n+1LoopMsgBox1+2+3+100=&s,例4-7计算100以内的奇数的平方和。分析：100以内的奇数为：1，3，5，7。连续奇数之间相差2，赋初值I=1，在循环内使变量I=I+2，保证I总为奇数即可。,DoLoop循环语句用法示例,4循环的嵌套循环可以多级嵌套。所谓嵌套，就是在一个大循环内可以包含一个小循环，此时小循环就相当于大循环内的执行语句。,图4-12循环嵌套示意图,例4-13循环的嵌套示例。定义一个二维数组并给其赋值，然后求出数组变量的和。分析：要给二维数组赋值，首先要读出二维数组变量的个数，用二重循环来实现分别读出行列，然后用一个变量赋给数组变量，最后用累加方法求出数组变量的和。,循环嵌套的使用求出数组a(12,20)中各变量值的总和Dima(12,20),sum声明一个2行2列的数组ForI=0to12循环1Forj=0to20循环2a(i,j)=i给数组变量赋值Sum=sum+a(I,j)NextNext,msgbox求出数组变量a(12,20)中各变量值的总和：&Cstr(sum),例4-14编写一个程序，输出如图4-14所示的图案。分析：图为4行4列，那么用一个循环控制行，嵌套一循环控制列的输出即可。,图4-14长方形图案,源程序代码如下：使用循环嵌套输出一图形,注意：在doloop中跳出循环的指令是：exitdo。如下例为当和数大于1000时，使用exitdo强行终止循环。,1000exitdoenddon=n+1%,4.3VBScript过程,在VBScript过程中，过程有两种，一种是Sub子程序，一种是Function函数。两者的区别在于：Sub子程序只执行程序而不返回值，而Function函数可以将执行代码后的结果返回给请求程序。,4.3.1Sub子程序1声明Sub子程序的语法语法：Sub子程序名(参数1，参数2，)endsub或sub子程序名()endsub,2Sub过程调用的两种方式（1）使用Call语句：语法：Call子程序名(参数1，参数2，)（2）不使用Call语句语法：子程序名参数1，参数2,例4-15Sub子程序示例。Sub子程序示例,例4-16求a和b的立方和。用sub子程序求a3+b3=?计算a3+b3=?,4.3.2Function函数语法：Function函数名(参数1，参数2，)endFunction或Function函数名endFunction,Function过程调用方式只有一种，即通过直接引用函数名实现函数的调用，而且函数名必须用在变量赋值语句的右端或表达式中，和函数调用一样。,例4-17调用自定义函数。调用自定义函数,functionmyfunction()flag=0response.write(函数被调用了!1次!)&mendfunction,例4-18为了与子程序相比较，下面利用function函数，求a3+b3的值。用Function函数求a3+b3=?,计算a3+b3=?,4.3.3子程序和函数的位置子程序和函数可以放在ASP文件的任意位置上，也可以放在另外一个ASP文