TABLE OF CONTENTS
一、For 迴圈
語法：
For 區域變數 = 初始值 To 終止值 [Step 增量]
'敘述
Next [變數名稱]
流程圖：
範例：實作 1 + 2 + ．．． + 10。
sum = 0
For i = 1 To 10 Step 1
sum = sum + i
Next i
Debug.Print sum '55
二、For Each 迴圈
語法：
For Each 元素變數名稱 In 群組變數名稱
'敘述
Next [變數名稱]
流程圖：
範例：輸出顯示 1a 1b 1c 2a 2b 2c 3a 3b 3c。
' Create lists of numbers and letters
' by using array initializers.
numbers = Array(1, 2, 3)
letters = Array("a", "b", "c")
' Iterate through the list by using nested loops.
For Each Number In numbers
For Each letter In letters
Debug.Print Number & letter & " "
Next
Next
三、Do 迴圈
3.1 ［不做判斷型］重複性結構
語法：
Do
'敘述區塊_Ⅰ
If 條件 Then
Exit Do
End If
'敘述區塊_Ⅱ
Loop
流程圖：
範例：實作 1 + 2 + ．．． + 10。
i = 1
sum = 0
Do
sum = sum + i
If i = 10 Then
Exit Do
End If
i = i + 1
Loop
Debug.Print sum '55
3.2 ［事前判斷型］重複性結構
1) 判斷方式：是否繼續迴圈（Do While...Loop）
語法：
Do While 條件敘述式
'敘述區塊
Loop
流程圖：
範例：實作 1 + 2 + ．．． + 10。
i = 1
sum = 0
Do While i <= 10
sum = sum + i
i = i + 1
Loop
Debug.Print sum '55
2) 判斷方式：是否離開迴圈（Do Until...Loop）
語法：
Do Until 條件敘述式
'敘述區塊
Loop
流程圖：
範例：實作 1 + 2 + ．．． + 10。
i = 1
sum = 0
Do Until i > 10
sum = sum + i
i = i + 1
Loop
Debug.Print sum '55
3.3 ［事後判斷型］重複性結構
1) 判斷方式：是否繼續迴圈（Do...Loop While）
語法：
Do
'敘述區塊
Loop While 條件敘述式
流程圖：
範例：實作 1 + 2 + ．．． + 10。
i = 1
Sum = 0
Do
sum = sum + i
i = i + 1
Loop While i <= 10
Debug.Print sum '55
2) 判斷方式：是否離開迴圈（Do...Loop Until）
語法：
Do
'敘述區塊
Loop Until 條件敘述式
流程圖：
範例：實作 1 + 2 + ．．． + 10。
i = 1
Sum = 0
Do
sum = sum + i
i = i + 1
Loop Until i > 10
Debug.Print sum '55