只要电脑处理器可以支援，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
