指定迴圈次數，使用計數器重覆運行語句，語法結構如下： 1 2 3 4 5 For counter = start To end [Step step] [statements] [Exit For] [statements] Next 主要參數： counter：用做迴圈計數器的數值變數。這個變數不
指定迴圈次數，使用計數器重覆運行語句，語法結構如下：
| 1 2 3 4 5 |
For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next
|
主要參數：
counter：用做迴圈計數器的數值變數。這個變數不能是數組元素或用戶自定義類型的元素。
start：counter的初值。
end：counter的終值。
step：counter的步長。如果沒有指定，則step的預設值為1。
具體示例代碼如下：
For…Next
| 1 2 3 4 5 |
Dim Count:Count = 0 '定義一個變數，並賦值為0
For i = 1 To 10 '迴圈10次
Count = Count + 1
Next
MsgBox Count '輸出10
|
Step設置計數器迴圈步長
| 1 2 3 4 5 |
Dim Count:Count = 0 '定義一個變數，並賦值為0
For i = 1 To 10 Step 2 '設置計數器步長為2，迴圈5次
Count = Count + 1
Next
MsgBox Count '輸出5
|
退出迴圈
Exit For 語句用於在計數器達到其終止值之前退出 For...Next 語句。因為通常只是在某些特殊情況下（例如在發生錯誤時）要退出迴圈，所以可以在 If...Then...Else 語句的 True 語句塊中使用 Exit For 語句。如果條件為 False，迴圈將照常運行。
| 1 2 3 4 5 6 7 8 |
Dim Count:Count = 0 '定義一個變數，並賦值為0
For i = 1 To 10 '迴圈10次
Count = Count + 1
If Count = 5 Then '當變數Count的值為5時，退出當前迴圈
Exit For
End If
Next
MsgBox Count '輸出5
|
