大学计算机基础第7章 VBScript脚本语言.ppt

3、Select Case语句 Select Case语句提供的功能与If语句类似， 代码更加简练易读。 语法格式3： Select Case 表达式 Case 列表值1 语句组1 Case 列表值2 语句组2 … case 列表值n 语句组n Case Else 语句组 End Select 例7.5 输入不同分数判断成绩的等级。 代码如下： 演示 例7.5 7.3.2 循环语句 循环语句用于重复执行一组语句序 列，直到指定条件满足为止。 VBScript提供了三种循环结构：For循 环、While循环和Do循环。 For循环：按规定的次数执行循环体； While循环和Do循环：是在给定的条件 满足时执行循环体, 1、For…Next语句 语法格式： For 循环控制变量 = 初值 To 终值 [Step 步长] [语句组] [Exit For] [语句组] Next 其中:For、To、Step、Exit For、Next是关键字 循环变量：是一个数值变量。 初值：循环变量的初值，是一个数值表达式。 终值：循环变量的终值。是一个数值表达式。 步长：是循环控制变量的增量，是一个数值表达 式。其值可以是正数、负数，但不能为0。缺省 时步长值为 1。 循环语句结构流程如图所示： 例7.6 按递增循环求10以内偶数之和。 html title例7.6 VBScript的for循环/title body script Language=VBScript sub tw() dim i,total total=0:i=0 for i = 2 To 10 Step 2 total=total+i next MsgBox 总和为： total end sub /script input type=button name= button1 onclick= “tw()” value=“求整数1～10的偶数之和” /body/html 分析结果： 演示 例7.6 2、For...Next的嵌套循环 For...Next 构成嵌套循环时，应注意在每层 循环中的“循环变量”必须使用不同的变量名。 三层循环结构： For I = 1 To 10 For J = 1 To 10 For K = 1 To 10 ... Next Next Next 例7.8 网页显示乘法九九表 程序代码如下： html body title例7.8 VBScript的嵌套循环/title script language=vbscript sub jjb() dim int1,int2 for int1=1 to 9 每次循环生成一行 for int2=1 to int1 每次循环生成一项 Document.write cstr(int2) × cstr(int1) = cstr(int1*int2) next Document.write br next end sub /Script input type=button name= button1 onclick=jjb() value=显示九九表 /body/html 分析结果： 演示 例7.8 3、DO…LOOP语句 可以使用 DO…LOOP语句多次（次数不定）运 行语句块。语句格式如下： Do [{ While | Until }] 条件表达式 [语句组] [Exit Do] [语句组] Loop 或： Do [语句组] [Exit Do] [语句组] Loop [{ While | Until }] 条件表达式 (1) Do While …Loop语句 该语句的执行流程：首先计算条件，若为False，则跳出该语句；否则（条件为True），执行循环体，遇到Loop语句，然后再判断条件，…。如图循环结构流程图。 例7.9 用Do While… Loop循环语句在浏览器显示10行， 每行显示5个“*”。代码如下： html head title例7.9