Excel图表周期设置？下面继续介绍满足指定条件时执行相应代码块的循环结构，然后查看Do直至循环。

Do直到循环的结构与Do While循环相似，本质区别在于对循环条件的判断。顾名思义，在Do While循环中，当条件为True时，执行循环；在“执行到”循环中，循环一直执行到条件为真，然后退出循环。

Do直到循环的基本语法结构如下：

做[直到条件语句]

[语句块]

[退出Do]

[语句块]

环

或者：

做

[语句块]

[退出Do]

[语句块]

循环[直到条件语句]

描述：

按照惯例，方括号中的内容表示选项。

条件可以放在循环的开始或结束。如果放在开头，先评估条件，如果不满足条件，执行循环中的语句；在这种情况下，当条件总是满足时，循环中的语句可能不会执行一次。如果放在末尾，循环中的语句将至少执行一次。

Exit Do语句意味着提前退出循环。

“直到”循环的两种语法形式由框图表示如下：

与上一篇文章中介绍的Do While循环相比，结构是相同的，但是执行循环的条件是相反的。

接下来，为了便于理解这两种循环结构，我们重写了上一篇文章中的一些例子。

示例：如果要依次填写工作表单元格区域A1:A10中的数字1到10，还可以使用以下包含“直到”循环的代码：

Sub DoUntil1()

' Dim I as integer '声明变量。

I=1 '将初始值赋给变量。

'循环'

直到我10岁

细胞(I，1)。值=i

i=i 1

环

末端接头

请注意，与For-Next循环不同，在进入循环之前，您需要为变量I分配一个初始值。在循环中，您还需要能够增加变量的值。

示例2:下面的代码使用Do直到循环将1和100相加，并显示结果。

Sub DoUntil2()

声明一个变量。

作为整数变暗

作为整数的点心

为变量分配初始值。

i=1

总和=0

循环并显示结果。

直到我100岁

总和=总和I

i=i 1

环

Msgbox到100的和是：" sum。

末端接头

示例3:下面的代码使用Do直到循环对1到100之间的偶数求和并显示结果。

Sub DoUntil3()

声明一个变量。

作为整数变暗

作为整数的点心

为变量分配初始值。

i=1

总和=0

循环并显示结果。

直到我100岁

如果(i Mod 2=0)，则

总和=总和I

如果…就会结束

i=i 1

环

Msgbox到100的和是：" sum。

末端接头