VB中do循环的四种格式

在VB中，do循环具有四种格式。
格式1：
do while 条件
    循环体
loop

格式2：
do until 条件
    循环体
loop

格式3：
do 
    循环体
loop while 条件

格式4：
do
    循环体
loop until 条件

下面是这4种格式的4个例子，执行后 效果都一样。

Private Sub Command1_Click()
'格式1
a = 0
Do While a < 5
    Print a
    a = a + 1
Loop

End Sub


Private Sub Command2_Click()
'格式2
a = 0
Do Until a > 4
    Print a
    a = a + 1
Loop

End Sub


Private Sub Command3_Click()
'格式3
a = 0
Do
    Print a
    a = a + 1
Loop While a < 5

End Sub


Private Sub Command4_Click()
'格式4
a = 0
Do
    Print a
    a = a + 1
Loop Until a > 4

End Sub