只要电脑处理器可以支援，Visual Basic允许一个程序被重复执行多次� 这种重复的程序叫着迴圈. 迴圈 是VB中一个非常有用的程序，因为它可以把异常复杂的工作简单化，从而节省时间和金钱。在VB中有三种迴圈，那就是 Do.........Loop 迴圈 , For.........Next 迴圈和While...... Wend 迴圈�
它的结构如下�
a) Do While 条件�一或多行的指令�
Loop
b) Do
一或多行的指令�
Loop While 条件�
c) Do Until 条件�
一或多行的指令�
Loop
d) Do
一或多行的指令�
Loop Until 条件�
Do while counter <=1000
num.Text=counter
counter =counter+1
Loop
* 上面的例子中 counter 会继续增加，直到counter >1000.
上面的例子也可写成如下的程序�
Do
num.Text=counter
counter=counter+1
Loop until
counter>1000
9.2 退出Do 的迴�
当我�需提前退�Do的迴圈时，可使用关键�Exit Do。请参考范�9.2�
Dim sum, n As Integer
Private Sub Form_Activate()
List1.AddItem "n" & vbTab & "sum"
Do
n = n + 1
Sum = Sum + n
List1.AddItem n & vbTab & Sum
If n = 100 Then
Exit Do
End If
Loop
End Sub
For.....Next 迴圈的结构如�:
For counter=起始� to 终止�(Step 间隔�)
一或多行的指令�
Next
9.3(a) For counter=1 to 10
display.Text=counter
Next
9.3(b) For counter=1 to 1000 step 10
counter=counter+1
Next
9.3(c) For counter=1000 to 5 step -5
counter=counter-10
Next
要退出For.....Next 的迴圈，使用的指令是Exit For。请参考范�9.3(d)
范例9.3(d)
Private Sub Form_Activate( )
End SubFor n=1 to 10
If n>6 then
Exit For
End If
Else
Print n
End If
While...... Wend 迴圈的结构如下：
范例 9.4
Private Sub Form_Activate()
List1.AddItem "n" & vbTab & "sum"
While n <> 100
n = n + 1
Sum = Sum + n
List1.AddItem n & vbTab & Sum
WendEnd Sub
