do ...loop 循环语句，直到满足某个条件vba

nnsea

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