VB循环语句⼀、Do...Loop 语句当条件为 True 时，或直到条件变为 True 时，重复执⾏⼀个块中的命令。
语法Do [{While | Until} condition][statements][Exit Do][statements]Loop或者可以使⽤下⾯这种语法：Do[statements][Exit Do][statements]Loop [{While | Until} condition]Do Loop 语句的语法具有以下⼏个部分：部分描述condition可选参数。
或，其值为 True 或 False。
如果condition 是，则condition 会被当作False。
statements⼀条或多条命令，它们将被重复当或直到condition 为 True。
说明在 Do...Loop 中可以在任何位置放置任意个数的 Exit Do 语句，随时跳出 Do...Loop 循环。
Exit Do 通常⽤于条件判断之后，例如 If...Then，在这种情况下，Exit Do 语句将控制权转移到紧接在 Loop 命令之后的语句。
如果 Exit Do 使⽤在嵌套的 Do...Loop 语句中，则 Exit Do 会将控制权转移到 Exit Do 所在位置的外层循环。
Do...Loop 语句⽰例本⽰例⽰范如何使⽤ Do...Loop 语句。
内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并⽤ Exit Do 语句强制退出内层循环。
外层循环则在检查到标志值为 False 时，马上退出。
Dim Check, CounterCheck = True: Counter = 0 ' 设置变量初始值。
Do ' 外层循环。
Do While Counter < 20 ' 内层循环。
Counter = Counter + 1 ' 计数器加⼀。
