ASP程序设计培训-共11章 .ppt

第4章 VBScript编程语言（二）,4.1 VBScript的选择结构 4.2 VBScript的循环结构 4.3 VBScript 过 程,通过本章的学习，读者应该掌握以下内容：VBScript的选择结构 VBScript的循环结构 VBScript过程,4.1 VBScript的选择结构,4.1.1 单条件选择结构1行If语句语法：IfThenElse,例4-1 IfThenElse语句用法示例。IfThenElse语句用法示例,=85 Then Response.write 好优秀哟！Else Response.write 较上次有进步哟！%,2块If语句块If语句又称多行If语句，也就是将一个选择结构用多个语句来实现。语法：IfThenElse语句序列2End If,例4-2 块If语句应用。块If语句实例 日期型测试函数 请输入日期型数据：,x=Text1.value If Isdate(x)Then msgbox 您输入的是日期型数据,else MsgBox 您输入的不是日期型数据 end if,例4-4 某超市店庆促销，采用多购物多打折的优惠办法，条件为每位顾客一次购物累计：（1）在500元以上者，按九五折优惠；（2）在1 000元以上者，按九折优惠；（3）在1 500元以上者，按八五折优惠；（4）在3 000元以上者，按八折优惠。,编写如下VBScript代码：优惠价格计算 优惠后价格 所购商品总金额：元,x=Text1.value If Not IsNumeric(x)Then MsgBox 您输入的不是数值数据:Exit Sub,If x 500 Then y=x ElseIf x 1000 Then y=0.95*x ElseIf x 1500 Then y=0.9*x ElseIf x 3000 Then y=0.85*x,Else y=0.8*x End If MsgBox 优惠后价格为：&y&元,4.1.2 多分支条件选择结构语法：Select Case测试条件 Case表达式表1 语句序列1 Case表达式表2 语句序列2.Case Else 其他语句序列End Select,例4-5 将例4-4中的If语句改为Select语句。代码如下：优惠价格计算 优惠后价格 所购商品总金额：input name=Text1 type=TEXT,SIZE=10元 x=Text1.value If Not IsNumeric(x)Then MsgBox 您输入的不是数值数据:Exit Sub,Select Case True Case x=500 And x=1000 And x 1500 y=0.9*x,Case x=1500 And x,4.2 VBScript的循环结构,循环可分为3类：（1）在条件变为False之前重复执行语句；（2）在条件变为True之前重复执行语句；（3）按照指定的次数重复执行语句。,1DoLoop语句（1）进入循环之前检查条件（DoLoop循环）是否为True。进入循环之前检查条件是首先判断条件，根据条件判断结果决定是否执行循环，执行循环的最少次数为0。,语法：Do While|Until 条件 语句序列1 Exit Do 语句序列2Loop,例4-6 求累加和1+2+3+100。分析：采用累加的方法，用变量s来存放相加的和（开始为0），用变量n来存放加数（加到s中）这里的n又用来计数，作为循环条件至100为止，则停止循环。,程序代码如下：累加和计算 累加和计算 求累加1+2+3+100的值。,s=0:n=1 do while n,上面的当型循环的实例，当n小于等于100时是循环的起始条件，否则一次也不循环。将上例改为直到型循环。修改后的VBScript代码如下：,s=0:n=1 Do until n100 s=s+n n=n+1 Loop MsgBox 1+2+3+100=&s,例4-7 计算100以内的奇数的平方和。分析：100以内的奇数为：1，3，5，7。连续奇数之间相差2，赋初值I=1，在循环内使变量I=I+2，保证I总为奇数即可。,DoLoop循环语句用法示例,%Dim Sum,I,NSum=0 N=100 I=1循环，从1加到N,Do While I,（2）进入循环之后检查条件是否为True。进入循环之后检查条件，首先执行循环体，然后判断条件，根据判定结果决定是否继续执行循环，因此执行循环次数至少为1。,语法：Do 语句序列1 Exit Do 语句序列2Loop While|Until 条件,例4-8 将例4-6用Doloop Until改写。累加和计算 累加和计算,求累加1+2+3+100的值。s=0:n=1 do s=s+n n=n+1,loop while n,2WhileWend语句WhileWend语句比较简单，只要指定条件为True，则会重复执行一系列的语句，但是由于WhileWend缺少灵活性，所以建议最好使用DoLoop语句。,3ForNext语句ForNext语句用于指定语句块运行的次数。在循环中使用计数器变量，该变量的值随每一次循环增加或减少。,语法：For=ToStep语句序列1Exit For 语句序列2Next循环变量,说明：（1）如果没有指定步长，是默认为1。（2）可是正数也可是负数。（3）可以在循环中的任何位置放置一个Exit For语句，可随时退出循环。,例4-10 使用ForNext循环，计算“2+4+6+100”的和。分析：求100以内偶数的和，从初值j=2开始，终值为100，步长为2。,ForNext循环，步长为正求2+4+6+n=?%,Dim j,totaltotal=0For j=2 To 100 Step 2total=total+jNext response.write2+4+6+100=&total%,例4-11 使用ForNext循环，求“50+48+46+2”的和。分析：从初值j=50，计数器变量每次减2（步长为-2），终值为2。,ForNext循环，步长为负求50+48+46+2=?%,Dim j,totaltotal=0 For j=50 To 2 Step-2 total=total+j Next response.write 50+48+46+2=&total%,例4-12 修改例4-11，求使50+48+46+j的和大于500后的第一个值j。exit for的用法,求使50+48+46+j的和大于500后的第一个值j%Dim j,totaltotal=0For j=50 To 2 Step-2 total=total+j,if total=500 then exit forNext response.write 则程序运行到j=&j&时停止循环。则计算50+48+.+&j&=&total%,4循环的嵌套循环可以多级嵌套。所谓嵌套，就是在一个大循环内可以包含一个小循环，此时小循环就相当于大循环内的执行语句。,图4-12 循环嵌套示意图,例4-13 循环的嵌套示例。定义一个二维数组并给其赋值，然后求出数组变量的和。分析：要给二维数组赋值，首先要读出二维数组变量的个数，用二重循环来实现分别读出行列，然后用一个变量赋给数组变量，最后用累加方法求出数组变量的和。,循环嵌套的使用求出数组a(12,20)中各变量值的总和 script for=Button1,event=onClick language=VBScriptDim a(12,20),sum 声明一个2行2列的数组For I=0 to 12 循环1 For j=0 to 20 循环2 a(i,j)=i 给数组变量赋值 Sum=sum+a(I,j)Next Next,msgbox 求出数组变量a(12,20)中各变量值的总和：&Cstr(sum),例4-14 编写一个程序，输出如图4-14所示的图案。分析：图为4行4列，那么用一个循环控制行，嵌套一循环控制列的输出即可。,图4-14 长方形图案,源程序代码如下：使用循环嵌套输出一图形%s=*:p=,For I=0 to 3 循环1 For j=0 to 3 循环2 p=p&nbsp&S NextRESPONSE.WRITE P&p=Next%,注意：在doloop中跳出循环的指令是：exit do。如下例为当和数大于1000时，使用exit do强行终止循环。,1000 exit do enddon=n+1%,4.3 VBScript 过 程,在VBScript过程中，过程有两种，一种是Sub子程序，一种是Function函数。两者的区别在于：Sub子程序只执行程序而不返回值，而Function函数可以将执行代码后的结果返回给请求程序。,4.3.1 Sub子程序1声明Sub子程序的语法语法：Sub子程序名(参数1，参数2，)end sub或sub子程序名()end sub,2Sub过程调用的两种方式（1）使用Call语句：语法：Call 子程序名(参数1，参数2，)（2）不使用Call语句语法：子程序名 参数1，参数2,例4-15 Sub子程序示例。Sub子程序示例,%Dim user_name 声明一个变量作为实参 user_name=阿方 Call Welcome(user_name)调用子程序，显示欢迎信息 下面是子程序，用来显示欢迎用户的信息 Sub Welcome(Name)Name是形式参数,Dim StrWelcome 不能再声明Name了 StrWelcome=Name&:你好，欢迎光临ASP子程序设计一节！Response.Write StrWelcome 显示StrWelcome的值 End Sub%,例4-16 求a和b的立方和。用sub子程序求a3+b3=?计算a3+b3=?,%Dim m,n m=5 n=9 call countsum(m,n)调用子程序显示结果,下面是子程序，用来计算两个数的立方 sub CountSum(a,b)dim sum Sum=a3+b3 Response.write a和b的立方和等于&Cstr(sum)End sub%,4.3.2 Function函数语法：Function函数名(参数1，参数2，)end Function或Function函数名end Function,Function过程调用方式只有一种，即通过直接引用函数名实现函数的调用，而且函数名必须用在变量赋值语句的右端或表达式中，和函数调用一样。,例4-17 调用自定义函数。调用自定义函数,function myfunction()flag=0response.write(函数被调用了!1次!)&mend function,例4-18 为了与子程序相比较，下面利用function函数，求a3+b3的值。用Function函数求a3+b3=?,计算a3+b3=?%Dim m,n,summ=5n=9,sum=CountSum(m,n)调用函数，求立方和Response.write m和n的立方和等于&Cstr(sum)显示结果,下面是函数，用来计算两个数的立方 Function CountSum(a,b)由于a,b为形式参数，在函数被调用时，其值由实际参数给出 CountSum=a3+b3 End Function%,4.3.3 子程序和函数的位置子程序和函数可以放在ASP文件的任意位置上，也可以放在另外一个ASP文件中。例4-19 求a3+b3值的主程序。这是HTML语句，利用#include语句可以在一个文件中插入另一个文件,用Function函数求a3+b3=?计算a3+b3=?,例4-20 求a3+b3值的自定义函数。,