根据条件控制是否执行循环,分两种:
1、Do[{While|Until}<循环条件>]
<循环体>
Loop
这种形式是先判断条件,要是条件符合了才执行循环体。
例:Private Sub Form_Click()
Dim i As Integer,sum As Integer
i=1
Do Until i>10
sum=sum+i
i=i+1
Loop
Print "1+2+...+10=";sum
End Sub
2、Do
<循环体>
Loop[{While|Until}<循环条件>]
这种形式是先执行循环体,每次执行完后判断条件是否符合(即循环体至少被执行一次)。
例:Private Sub Form_Click()
Dim i As Integer,sum As Integer
i=1
Do
sum=sum+i
i=i+1
Loop Until i>10
Print "1+2+...+10=";sum
End Sub