電腦學習園地

For To/Next

迴圈可以執行固定次數的迴圈，預設每次增加1，如果到達結束條件，就結束迴圈執行。其語法如下所示：

For 變數 = 起始值 To 終止值

程式區塊

Next 變數

上述迴圈的「變數」是計數器變數，其範圍是從「起始值」到「終止值」，每次增加1，執行迴圈的次數是：「終止值」-「起始值」+1次，其中Next關鍵字後的「變數」可以省略。

例如：計算6加到15總和的迴圈，如下所示：

Dim intI, intTotal As Integer
For intI = 6 To 15
    intTotal = intTotal + intI
Next intI

For Step/Next

For/Next迴圈的增量如果不是1，我們可以使用Step關鍵字指定每次增加或減少的量。如果使用負數值，表示每次是將計數器變數減掉Step值，此時For Step/Next迴圈，如下所示：

For intI = 100 To 1 Step -1
    intTotal = intTotal + intI
Next intI

上述程式碼倒過來從100加到1，變數intI值依序100、99、98、97、…、3、2、1共執行100次迴圈