For...Next 陳述式範例
本範例使用 For...Next 陳述式來建立一個字串,其內容為由 0 到 9 的十個數字所組成的字串,每個字串之間用空格隔開。外層迴圈使用一個變數當作迴圈計數器,其計數方式是由大到小遞減的。
Dim Words, Chars, MyString
For Words = 10
To 1
Step -1
' 10 到 1 倒數執行 10 次 For Chars = 0
To 9
' 0 到 9 執行 10 次 MyString = MyString & Chars
' 將數字加入到字串中 Next Chars
' Chars 加 1,回到這個迴圈的開頭 MyString = MyString & " "
' 加入一個空格Next Words
' Words 減 1,回到這個迴圈的開頭 以特定次數來重複執行一段訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。。
語法
For counter = start To end [Step step] [statements]
[Exit For]
[statements]
Next [counter]
|
For…Next 陳述式的語法具有以下幾個單元:
單元 | 描述 |
Counter | 必要引數,此為用做迴圈計數器的數值訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。,這個變數不能是一個 訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。,也不能是一個訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。元素。 |
Start | 必要引數,計數器的初始值。 |
End | 必要引數,計數器的終值。 |
Step | 選擇性引數,讓計數器每次改變的間隔值,如果沒有指定,則 step 的預設值為 1。 |
Statements | 選擇性引數,放在 For 和 Next 之間的一行或多行指令。 |
請注意
step 訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。可以是正數或負數,此 step 引數值會決定迴圈的執行情形,如下所述:
值 | 迴圈會執行,如果 |
正數或 0 | counter <= end |
負數 | counter >= end |
當所有迴圈中的陳述式都執行後,step 的值會加到 counter 中,此時,迴圈中的陳述式可能會再執行 ( 根據計數器的正負值與終值的關係 ),也可能是結束迴圈,然後從 Next 陳述式之後的指令行繼續執行。
提示 在迴圈中改變計數器的值,將會使您的程式碼不容易閱讀和除錯。
在迴圈中可以放置任意個 Exit For 陳述式,以用來離開迴, Exit For 通常與條件式共同使用,例如 If...Then ,並會將控制權轉移到 Next 之後的陳述式。
您可以將一個 For...Next 迴圈放置在另一個 For...Next 迴圈中,以造成巢狀迴圈,不過在每個迴圈中的計數器,要使用不同的變數名稱,例如底下的架構是正確的:
For I = 1 To 10 For J = 1 To 10 For K = 1 To 10 ... Next K Next JNext I附註 如果您省略 Next 陳述式中的計數器,仍可以執行迴圈,但如果 Next 陳述式比它相對應的 For 陳述式先執行,則會產生錯誤。