使用 Do…Loop 语句

使用 Do…用于 无限次运行语句 块的循环 语句。 这些语句在条件为 True 时重复，或者直到条件变成 True 时重复。

条件为 True 时重复语句

有两种方法可以使用 While 关键字 检查 Do … 中的条件。Loop 语句。 可以在进入循环之前检查条件，也可以至少运行循环一次后检查条件。

在下面过程中 ChkFirstWhile ，您将在进入循环之前检查条件。 如果 myNum 设置为 9 而不是 20，循环中的语句决不会运行。 在 ChkLastWhile 过程中，循环中的语句在条件变成 False 前仅会运行一次。

Sub ChkFirstWhile()

counter = 0

myNum = 20

Do While myNum > 10

myNum = myNum – 1

counter = counter + 1

Loop

MsgBox “The loop made ” & counter & ” repetitions.”

End Sub

Sub ChkLastWhile()

counter = 0

myNum = 9

Do

myNum = myNum – 1

counter = counter + 1

Loop While myNum > 10

MsgBox “The loop made ” & counter & ” repetitions.”

End Sub

重复语句，直到条件变成 True

可通过两种方式使用 Until 关键字检查 Do…Loop 语句中的条件。 您可以在进入循环前检查条件（如 ChkFirstUntil 过程中所示），或者也可以在至少运行循环一次后检查（如 ChkLastUntil 过程中所示）。 循环在条件仍为 False 时继续运行。

Sub ChkFirstUntil()

counter = 0

myNum = 20

Do Until myNum = 10

myNum = myNum – 1

counter = counter + 1

Loop

MsgBox “The loop made ” & counter & ” repetitions.”

End Sub

Sub ChkLastUntil()

counter = 0

myNum = 1

Do

myNum = myNum + 1

counter = counter + 1

Loop Until myNum = 10

MsgBox “The loop made ” & counter & ” repetitions.”

End Sub

退出 Do…循环内部的 Loop 语句

可以退出 Do …使用 Exit Do 语句 进行 循环。 例如，若要退出无限循环，请使用 If… 的 True 语句块中的 Exit Do 语句。然后…Else 语句或 Select Case 语句。 如果条件为 False ，循环将照常运行。

在下面的示例中 myNum ，分配了一个创建无限循环的值。 If…Then…Else 语句将检查此条件，然后退出，从而阻止无限循环。

Sub ExitExample()

counter = 0

myNum = 9

Do Until myNum = 10

myNum = myNum – 1

counter = counter + 1

If myNum < 10 Then Exit Do

Loop

MsgBox “The loop made ” & counter & ” repetitions.”

End Sub

备 注：

[!注释] 若要停止无限循环，请按 Esc 或 Ctrl+Break。

阅读原文：
http://www.accessoft.com/article-show.asp?id=20499