do..loop

循环语句，直到满足某个条件

Sub 事例()
Dim a%
Do
a = a + 1
If a > 10 Then
MsgBox a & "大于10"
Exit Do
End If
Loop
End Sub