ASP动态网页设计教程中的DoLoop语句

Do⋯Loop语句当条件为True时或条件变为True之前重复执行某语句块。根据循环条件出现的位置，Do⋯Loop语句有两种语法形式，分别是：前测型循环结构与后测型循环结构。

1.前测型Do⋯Loop循环

语法格式：

Do[｛While｜Until）condition]

[statements]

[Exit Do]

[statements]

Loop

说明：condition是数值或字符串表达式，其值为True或False，如果condition为Null，则condition被当作False。statements是当condition为True时被重复执行的一个或多个语句。

Do While⋯Loop是（前测型）当型循环语句，当条件为真（True）时执行循环体，条件为假（False）时终止循环；Do Until⋯Loop是（前测型）直到型循环语句，条件为假时执行循环体，直到条件为真时终止循环。

可以在Do⋯Loop中的任何位置放置任意个数的Exit Do语句，随时跳出Do⋯Loop循环。Exit Do通常用于条件判断之后，例如If Then，在这种情况下，Exit Do语句将控制权转移到紧接在Loop命令之后的语句。如果Exit Do使用在嵌套的Do⋯Loop语句中，则Exit Do会将控制权转移到Exit Do所在位置的外层循环。

【例3.8】用Do While⋯Loop语句计算1＋2＋3＋⋯＋100的累加和。运行结果如图3-8所示。

图3-8Do While语句应用示例运行结果

文件命名为3-8.htm 的代码如下：

〈HTML〉

〈HEAD〉〈TITLE〉计算累加和〈/TITLE〉〈/HEAD〉

〈BODY〉〈H3〉计算累加和〈/H3〉〈HR〉

计算1＋2＋3＋⋯＋100累加和。〈p〉

〈FORM〉

〈INPUT TYPE＝″Button″NAME＝″Buttonl″VALUE＝″计算 ″〉

〈/FORM〉

〈SCRIPT FOR＝″Buttonl″EVENT＝″onClick″LANGUAGE＝″VBScript″〉

Dim s，n

s＝0(www.xing528.com)

n＝1

Do While n〈＝100

s＝s＋n

n＝n＋1

Loop

MsgBox ″1＋2＋3＋⋯＋100＝″&s

〈/SCRIPT〉

〈/BODY〉

〈/HTML〉

在例3.8中，Do While⋯Loop语句也可以用Do Until⋯Loop语句来代替：

Do Until n〉100

s＝s＋n

n＝n＋1

Loop

2. 后测型Do Loop循环

语法格式：

Do

[statements]

[Exit Do]

[statements]

Loop[｛While｜Until｝condition]

Do⋯Loop While是（后测型）当型循环语句，当条件为真（True）时继续执行循环体，条件为假（False）时终止循环；Do Loop Until是（后测型）直到型循环语句，条件为假时继续执行循环体，直到条件为真时终止循环。