vbscript语句.ppt

% Dim Sum,I,N Sum=0 N=100 I=1 循环，从1加到N Do While I=N Sum=Sum+I^2 I=I+2 Loop Response.write 100以内的奇数的平方和= Cstr(Sum) % /body /html （2）进入循环之后检查条件是否为True。 进入循环之后检查条件，首先执行循环体，然后判断条件，根据判定结果决定是否继续执行循环，因此执行循环次数至少为1。 语法： Do [语句序列1] [Exit Do] [语句序列2] Loop [{While | Until} 条件] 例4-8 将例4-6用Do…loop Until改写。 html head title累加和计算/title /head bodyh3累加和计算/h3hr 求累加1 + 2 + 3 +…+ 100的值。p input type=button name=button1 value=计算 script for=button1 event=onclick language=vbscript s = 0: n = 1 do s = s + n n = n + 1 loop while n = 100 只是条件放到Loop while后 msgbox 1+2+3+…+100 = s /script /body 2．While…Wend语句 While…Wend语句比较简单，只要指定条件为True，则会重复执行一系列的语句，但是由于While…Wend缺少灵活性，所以建议最好使用Do…Loop语句。 3．For…Next语句 For…Next语句用于指定语句块运行的次数。在循环中使用计数器变量，该变量的值随每一次循环增加或减少。 语法： For循环变量=初值To终值[Step步长] [语句序列1] [Exit For ] [语句序列2] Next[循环变量] 说明： （1）如果没有指定步长，是默认为1。 （2）步长可是正数也可是负数。 （3）可以在循环中的任何位置放置一个Exit For语句，可随时退出循环。 例4-10 使用For…Next循环，计算“2+4+6+…+100”的和。 分析：求100以内偶数的和，从初值j=2开始，终值为100，步长为2。 html head titleFor…Next循环，步长为正/title /head body h2求2+4+6+…+n=?/h2 % Dim j, total total=0 For j = 2 To 100 Step 2 total = total + j Next response.write2+4+6+…+100= total % /body /html 例4-11 使用For…Next循环，求“50+48+46+…+2”的和。 分析：从初值j=50，计数器变量每次减2（步长为-2），终值为2。 html head titleFor…Next循环，步长为负/title /head body h2求50+48+46+…+2=?/h2hr % Dim j, total total=0 For j =50 To 2 Step -2 total = total + j Next response.write 50+48+46+…+2= total % /body /html 例4-12 修改例4-11，求使50+48+46+…+j的和大于500后的第一个值j。 html head titleexit for的用法/title /head body h2求使50+48+46+…+j的和大于500后的第一个值 j/h2hr % Dim j, total total=0 For j =50 To 2 Step -2 total = total + j if total=500 then exit for Next response.write 则程序运行到j= j时停止循环。 br则计算50+48+...+j=total % /body /html 4．循环的嵌套 循环可以多级嵌套。所谓嵌套，就是在一个大循环内可以包含一个小循环，此时小循环就相当于大循环内的执行语句。 图4-12 循环嵌套示意图 例4-13 循环的嵌套示例。 定义一个二维数组并给其赋值，然后求出数组变量的和。 分析：要给二维数组赋值，首先要读出二维数组变量的个数，用二重循环来实现分别读出行列，然后用一个变量赋给数组变量，最后