Page 79 -

第四章 程式的流程控制

4-4 For-Next 迴圈敍述

程式中某一區段程式，需要重複執行，而且執行次數確定時使用 For-Next 迴圈，這種迴
圈型式在程式頗為常用，應用重覆結構是簡化程式碼的重要技能，若能善用重覆結構，只需
使用一段程式碼，就可以避免重覆撰寫數十遍甚至數百遍的程式碼。For-Next 迴圈格式如下：

For 變數=起始值 To 終止值 [Step 增加值]
<重覆執行的敍述>

Next [變數]

 其中 For-Next 敘述的增加值可能為正，可能為負，需與起始值與終止值配合。
 當增加值為 1 時，可省略不寫。
 單層迴圈中，Next 後的變數值可省略不寫。
 迴圈內的敘述的重覆次數為：（終止值 － 起始值）＼增加值＋１。
 For 與 Next 必須成對出現，否則將出現錯誤訊息。
 必要時，在迴圈中可用「Exit For」敘述強制提前跳出迴圈。

範例一：輸入一數 n，求 1+2+….+n 之和。 流程圖
程式碼
輸入n
Dim n, sum As Integer
n=InputBox("請輸入一整數求 1 到該數和: ") i在1到 No
For i= 1 To n n之間

sum = sum + i i+=1 Yes
Next
MsgBox("1+2+…+n= " & sum) sum=sum+i

輸出
sum

75