VBS教程：VBscript语句-Do...Loop 语句

do...loop 语句

当条件为 true 时或条件变为 true 之前重复执行某语句块。

do [{while | until} condition]
[statements]
[exit do]
[statements]
loop

也可以使用下面的语法：

do
[statements]
[exit do]
[statements]
loop [{while | until} condition]

参数

condition

数值或字符串表达式，其值为 true 或 false。如果 condition 为 null，则 condition 被当作 false。

statements

当 condition 为 true 时被重复执行的一条或多条命令。

说明

exit do 仅可以用在 do...loop 控制语句中，提供另一种退出 do...loop 的方法。可以在 do...loop 语句中的任何位置放置任意个 exit do。exit do 通常与条件判断语句（如 if...then ）一起使用，将控制传递给紧随在 loop 语句后面的语句。

当用于嵌套 do...loop 中的时候，exit do 将控制传递给其所在循环的上一层嵌套循环。

下面例子举例说明如何使用 do...loop 语句:

do until defresp = vbno  mynum = int (6 * rnd + 1)      '  产生 1 到 6 之间的随机数。  defresp = msgbox (mynum & " 想要另一个数吗？", vbyesno)loopdim check, countercheck = true: counter = 0      ' 初始化变量。do            ' 外层循环。  do while counter < 20      ' 内层循环。    counter = counter + 1      ' 增加计数器。    if counter = 10 then      ' 如果条件为 true...      check = false         ' 将标志值设置为 false。      exit do         ' 终止内层循环。    end if  looploop until check = false      ' 立即终止外层循环。