只要条件为True, 当我们要重复一组语句时就使用Do While循环, 当条件变为False时停止执行。
可以在循环的开始或结束时检查条件。 “ Do While …
Loop语句”在循环开始时检查条件。
而“ Do …
Loop While语句”将检查循环末尾的条件。
如果在循环开始时检查了条件, 则代码块不会执行。如果在开始时不满足条件, 并且循环甚至不运行一次, 但是在结束时检查了条件, 则循环至少运行一次。
句法
Do While …
循环语句
它在循环开始时检查条件。
Do While [Condition]............................[Block of code]..............Loop【VBA Do While循环】做… While循环语句
Do … while循环还有另一种语法。它在循环结束时检查条件。
Do............................[Block of code]..............Loop While [Condition]流程图
文章图片
例子1
以上两个语法均通过示例进行了说明。如,
下面的示例使用Do While … 循环在循环开始时检查条件。仅当条件变为True时, 才会执行循环内的语句。
Sub doWhile()Dim i As IntegerDim iTotal As Integeri = 10iTotal = 0Do While i >
10iTotal = i + iTotali = i - 1LoopMsgBox iTotalEnd Sub执行代码后, 你将获得以下输出。
文章图片
例子2
在此示例中, 我们使用Do … while循环在循环结束时检查条件。即使条件为False, 循环内的语句也应至少执行一次。
Sub doWhile() Dim i As IntegerDim iTotal As Integeri = 5iTotal = 0DoiTotal = i + iTotali = i - 1Loop While i >
5MsgBox iTotalEnd Sub执行代码后, 你将获得以下输出。
文章图片
