Do...Loop 语句

当条件为 True 或 False 时,重复执行 Do 与 Loop 语句之间的语句。

语法

Do [{While | Until} condition = True]

语句块

[Exit Do]

语句块

循环

Do

语句块

[Exit Do]

语句块

Loop [{While | Until} condition = True]

参数/元素

Condition」: 比较、数字或字符串表达式,其值为 True 或 False。

语句块」: 条件为 True 时要重复执行的语句。

只要条件为 True,「Do...Loop」语句就执行循环。用于退出循环的条件必须放在「Do」或「Loop」语句之后。以下示例是一些有效的语句繀„合:

语法

Do While condition = True

...语句块

循环

只要条件为 True,就重复执行 Do While 与 Loop 语句之间的语句块。

Do Until condition = True

...语句块

循环

只要条件为 False,就重复执行 Do Until 与 Loop 语句之间的语句块。

Do

...语句块

Loop While condition = True

只要条件为 True,就重复执行 Do 与 Loop 语句之间的语句块。

Do

...语句块

Loop Until condition = True

只要条件为 True,就重复执行 Do 与 Loop 语句之间的语句块。

Exit Do」语句可用于无条件地结束循环。您可以在「Do...Loop」语句中的任意位置加入此语句。此外,也可以使用「If...Then」结构定义一个退出条件:

Do...

语句

If condition = True Then Exit Do

语句

Loop...

示例


Sub ExampleDoLoop
Dim sFile As String
Dim sPath As String
    sPath = "c:\"
    sFile = Dir$( sPath ,22)
    If sFile <> "" Then
        Do
            MsgBox sFile
            sFile = Dir$
        Loop Until sFile = ""
    End If
End Sub