IBM Lotus Symphony


Do...Loop 语句 [运行时]

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

语法

Do [{While | Until} condition = True]

语句块

[Exit Do]

语句块

Loop

Do

语句块

[Exit Do]

语句块

Loop [{While | Until} condition = True]

参数/元素:

condition:比较表达式、数字表达式或字符串表达式,其求值结果可为 True 或 False。

语句块:当条件为 True 时或条件变为 True 之前要重复执行的语句。

当条件为 True 时或条件变为 True 之前,Do...Loop语句就会执行循环。用于退出循环的条件必须放在 DoLoop 语句之后。下面的示例是一些有效的语句组合:

语法

Do While condition = True

...语句块

Loop

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

Do Until condition = True

...语句块

Loop

只要条件为 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 = ""

Loop Until sFile = ""

End Sub


产品反馈 | 其他文档 | 商标