uDo…Loop 循环语句的四种形式
v四种形式的Do…Loop 语句的比较：
■ 四种循环结构都是以Do语句开始，而以Loop语句结束。
■ 若循环控制条件跟在Do语句后，则要先判断条件，再执行循环体，因此是一种当型循环；若循环控制条件跟在Loop语句后，则是先执行循环体，再判断条件，为直到型循环。
■ 若条件语句使用While，则当条件为真时，执行循环体，条件为假时，退出循环；若条件语句使用Until，则当条件为假时，执行循环体，条件为真时，则退出循环。
例题2：分别使用四种形式的Do…Loop语句，计算：S=1+2+3+……100的值。
Private Sub Form_Click()
DimS As Integer, I As Integer
S = 0
I = 0
Do WhileI <= 100
S = S + I
I = I + 1
Loop
Print "1+2+3+……+100=", S
End Sub
Private Sub Form_Click()
DimS As Integer, I As Integer
S = 0
I = 0
Do
S = S + I
I = I + 1
Loop WhileI <= 100
Print "1+2+3+……+100=", S
End Sub
Private Sub Form_Click()
DimS As Integer, I As Integer
S = 0
I = 0
Do UntilI > 100
S = S + I
I = I + 1
Loop
Print "1+2+3+……+100=", S
End Sub
Private Sub Form_Click()
DimS As Integer, I As Integer
S = 0
I = 0
Do
S = S + I
I = I + 1
Loop UntilI > 100
Print "1+2+3+……+100=", S
End Sub