📜  VBA做While循环

📅  最后修改于: 2021-01-11 14:17:02             🧑  作者: Mango

VBA做While循环

只要条件为True,当我们要重复一组语句时就使用Do While循环,当条件变为False时停止执行。

可以在循环的开始或结束时检查条件。 “ Do While … Loop语句”在循环开始时检查条件。

而“ Do … While While语句循环”则检查循环末尾的条件。

如果在循环开始时检查了条件,则代码块不会执行。如果开始时不满足条件,并且循环甚至不运行一次,而如果在结束时检查了条件,则循环至少运行一次。

句法

Do While …循环语句

它在循环开始时检查条件。

Do While [Condition]
..............
..............

[Block of code]
..............

Loop

做… While循环语句

Do … while循环还有另一种语法。它在循环结束时检查条件。

Do
..............
..............
[Block of code]
..............

Loop While [Condition]

流程图

例子1

以上两个语法均通过示例进行了说明。如,

下面的示例使用Do While …循环在循环开始时检查条件。仅当条件变为True时,才会执行循环内的语句。

Sub doWhile()
Dim i As Integer
Dim iTotal As Integer
i = 10
iTotal = 0
Do While i > 10
iTotal = i + iTotal
i = i - 1
Loop
MsgBox iTotal

End Sub

执行代码后,您将获得以下输出。

例子2

在此示例中,我们使用Do … while循环在循环结束时检查条件。即使条件为False,循环内的语句也应至少执行一次。

Sub doWhile()
 
Dim i As Integer
Dim iTotal As Integer
i = 5
iTotal = 0
Do
iTotal = i + iTotal
i = i - 1
Loop While i > 5
MsgBox iTotal

End Sub

执行代码后,您将获得以下输出。