第9課: 迴圈的應用

只要電腦處理器可以支援，Visual Basic允許一個程式被重復執行多次， 這種重復的程式叫著迴圈.?迴圈 是VB裡一個非常有用的程式，因為它可以把異常復雜的工作簡單化，從而節省時間和金錢。在VB裡有三種迴圈，那就是 Do.........Loop 迴圈 , For.........Next?迴圈和While...... Wend 迴圈。

9.1 Do Loop迴圈

它的结构如下：

a)
Do While 条件式
  一或多行的指令行
 Loop 
 
b)
Do 
一或多行的指令行
Loop While 条件式

c)
Do Until 条件式
一或多行的指令行
Loop 
d)
Do 
一或多行的指令行

Loop Until 条件式

范例 9.1

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。

范例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

9.3 For....Next 迴圈

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( )
 For n=1 to 10
 If n>6 then
  Exit For
 End If
 Else
 Print n
 End If
End Sub

9.4 While….Wend 迴圈

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
Wend
End Sub