Do-Loop

Do Loop包含的语句块，而布尔条件为True或直到条件变为True。它可以随时使用Exit Do语句终止。

这个循环结构的语法是：

Do { While | Until } condition
    [ statements ]
    [ Continue Do ]
    [ statements ]
    [ Exit Do ]
    [ statements ]
Loop
-or-
Do
    [ statements ]
    [ Continue Do ]
    [ statements ]
    [ Exit Do ]
    [ statements ]
Loop { While | Until } condition

流程图：

示例：

Dim a As Integer = 10
'循环执行
Do
    Proj.MsgDebug.Add("value of a: {0}", a)
    a = a + 1
Loop While (a < 20)

'返回结果:value Of a: 10
'返回结果:value Of a: 11
'返回结果:value Of a: 12
'返回结果:value Of a: 13
'返回结果:value Of a: 14
'返回结果:value Of a: 15
'返回结果:value Of a: 16
'返回结果:value Of a: 17
'返回结果:value Of a: 18
'返回结果:value Of a: 19

如果你使用Until语句而不是While语句，程序的行为将会是相同的：

Dim a As Integer = 10
'循环执行
Do
    Proj.MsgDebug.Add("value of a: {0}", a)
    a = a + 1
Loop Until (a = 20)


'返回结果:value Of a: 10
'返回结果:value Of a: 11
'返回结果:value Of a: 12
'返回结果:value Of a: 13
'返回结果:value Of a: 14
'返回结果:value Of a: 15
'返回结果:value Of a: 16
'返回结果:value Of a: 17
'返回结果:value Of a: 18
'返回结果:value Of a: 19