Do...Loop 语句

当条件为 [b]True[/b] 时或条件变为 [b]True[/b] 之前重复执行某语句块。 [code][b]Do[/b] [{While | Until} condition] [statements] [Exit Do] [statements] [b]Loop [/b][/code] 也可以使用下面的语法： [b][code]Do[/code][/b] [code][statements] [Exit Do] [statements] [b]Loop[/b] [{While | Until} condition][/code] [h3]参数[/h3]condition 数值或字符串表达式，其值为 [b]True[/b] 或 [b]False[/b]。如果 [b]condition[/b] 为 Null，则 [b]condition[/b] 被当作 [b]False[/b]。 statements 当 [b]condition[/b] 为 [b]True[/b] 时被重复执行的一条或多条命令。 [h3]说明[/h3][b]Exit Do[/b] 仅可以用在 [b]Do...Loop[/b] 控制语句中，提供另一种退出 [b]Do...Loop[/b] 的方法。可以在 [b]Do...Loop[/b] 语句中的任何位置放置任意个 [b]Exit Do[/b]。[b]Exit Do[/b] 通常与条件判断语句（如 [b]If...Then[/b] ）一起使用，将控制传递给紧随在 [b]Loop[/b] 语句后面的语句。 当用于嵌套 [b]Do...Loop[/b] 中的时候，[b]Exit Do[/b] 将控制传递给其所在循环的上一层嵌套循环。 下面例子举例说明如何使用 [b]Do...Loop[/b] 语句:

[code][b]Do Until[/b] DefResp = vbNo  MyNum = Int (6 * Rnd + 1)[/code]      [code]'  [/code]产生[code] 1 [/code]到[code] 6 [/code]之间的随机数。[code]  DefResp = MsgBox (MyNum & " [/code]想要另一个数吗？[code]", vbYesNo)[/code][code]Loop[/code][code]Dim Check, Counter[/code][code]Check = True: Counter = 0[/code]      [code]' [/code]初始化变量。[b][code]Do[/code][/b]            [code]' [/code]外层循环。[code]  [b]Do While[/b] Counter < 20[/code]      [code]' [/code]内层循环。[code]    Counter = Counter + 1[/code]      [code]' [/code]增加计数器。[code]    If Counter = 10 Then[/code]      [code]' [/code]如果条件为[code] True...[/code][code]      Check = False[/code]         [code]' [/code]将标志值设置为[code] False[/code]。[code]      [b]Exit Do[/b][/code]         [code]' [/code]终止内层循环。[code]    End If[/code][code]  Loop[/code][code][b]Loop Until[/b] Check = False[/code]      [code]' [/code]立即终止外层循环。