令中国铁道出版社 5.3循环 53.1For..Nex语句 For. Next语句通常用于执行某固定次数的程序代 码时使用。它的语法如下 For counter=start To end step step statements LExit For statements Next 在上述的语法中,For的语句有一个控制变量 counter,它的初值为 Istart,终止值为end,每次增加值 为: step。 26
26 5.3 循环 • 5.3.1 For ... Next语句 For... Next语句通常用于执行某固定次数的程序代 码时使用。它的语法如下： For counter=startTo end [Step step] [statements] [Exit For] [statements] Next 在上述的语法中，For的语句有一个控制变量 counter，它的初值为start，终止值为end，每次增加值 为step
令中国铁道出版社 5.3循环 53.1For..Nex语句 其执行步骤如下: (1)设置 counter的初值。 (2)判断 counter是否大于终止值(或小于终止值,看 step的值而定) (3)假如 counte大于终止值,程序跳至Nex语句的 下一行执行。 (4)执行For循环中的语句 (5)执行到Nex语句时,控制变量会自动增加sep 值,若未指定sep值,默认值为每次加1 (6)跳至第二个步骤。 27
27 5.3 循环 • 5.3.1 For ... Next语句 其执行步骤如下： （1）设置counter的初值。 （2）判断counter是否大于终止值(或小于终止值，看 step的值而定)。 （3）假如counter大于终止值，程序跳至Next语句的 下一行执行。 （4）执行For循环中的语句。 （5）执行到Next语句时，控制变量会自动增加step 值，若未指定step值，默认值为每次加1。 （6）跳至第二个步骤
令中国铁道出版社 5.3循环 53.1For….Next语句 FOr.Next范例(ch5-1asp),使用 For. Next语句来计 算1+2++10的总和。 %0 shttp://127.0.0.1/chapter5/pages/ch5-1.asp-. Dim i si 文件①)编辑〖)查看Q)收藏④)工具①)帮助QD um ⊙后退··沿搜索☆收藏夹⊙合·品 Sum=0 也址①)Mt17.0.0/hpta5/py5-1.s转到链 For i=l to 10 Sum=Sum+ 1+2+.+10=55 包完毕 Internet Response. Write(1+2+.+10="& sum) 执行结果如图所示。 28
28 5.3 循环 • 5.3.1 For ... Next语句 For...Next范例(ch5-1.asp )，使用For...Next 语句来计 算1+2+…+10的总和。 <% Dim i, Sum Sum=0 For i=1 to 10 Sum=Sum+i Next Response.Write("1+2+…+10=" & Sum) %> 执行结果如图所示
令中国铁道出版社 5.3循环 532Do…Loo语句 重复执行一段语句模块中的命令,直到条件式为Tue时 Do. Loopl的语法有两种形式,分别如下 1. Do While until condition] statements LExit Do statements op 2. Do statement [Exit Do statements Loop while Until condition 其中Do. While是先测试条件,当条件成立时执行循环内的程序 福;而 Do. Unti武执行到满足Unt后面的条件时,退出Do. Loop 循环。这是两者最大差 29
29 5.3 循环 • 5.3.2 Do ... Loop语句 重复执行一段语句模块中的命令，直到条件式为True 时， Do...Loop的语法有两种形式，分别如下： 1. Do [{While | Until} condition] [statements] [Exit Do] [statements] Loop 2. Do [statements] [Exit Do] [statements] Loop [{While | Until} condition] 其中Do...While是先测试条件，当条件成立时执行循环内的程序 代码；而Do...Until式执行到满足Until后面的条件时，退出Do...Loop 循环。这是两者最大差别
令中国铁道出版社 5.3循环 5.3.3 Do While. Loop 语句 若我们同样以计算1+2+.+10的总和为例。以Do While.Loop循环计算,其范例(ch52aasp)如下 Dimi sum Sum=0 =0 Do While 1<10 l=1+1 Sum=Sum+ p Response. Write( 1+2+...+10=& sum) 30
30 5.3 循环 • 5.3.3 Do While ... Loop语句 若我们同样以计算1+2+…+10的总和为例。以Do While...Loop循环计算，其范例(ch5-2a.asp)如下： <% Dim i, Sum Sum=0 i=0 Do While i<10 i=i+1 Sum=Sum+i Loop Response.Write("1+2+…+10=" & Sum) %>