迴圈用於重複執行一組語句。迴圈可分為三類：一類在條件變為 False 之前重複執行語句，一類在條件變為 True 之前重複執行語句，另一類按照指定的次數重複執行語句。
在 VBScript 中可使用下列迴圈語句：
( 以上語句將在下面內容中詳細介紹）
使用 Do 迴圈可以使用 Do...Loop 語句多次（次數不定）運行語句塊。當條件為 True 時或條件變為 True 之前，重複執行語句塊。
當條件為 True 時重複執行語句While 關鍵字用於檢查 Do...Loop 語句中的條件。有兩種方式檢查條件：在進入迴圈之前檢查條件（如下面的 ChkFirstWhile 樣本）；或者在迴圈至少運行完一次之後檢查條件（如下面的 ChkLastWhile 樣本）。在 ChkFirstWhile 過程中，如果 myNum 的初始值被設定為 9 而不是 20，則永遠不會執行迴圈體中的語句。在 ChkLastWhile 過程中，迴圈體中的語句只會執行一次，因為條件在檢查時已經為 False。
重複執行語句直到條件變為 TrueSub ChkFirstWhile() Dim counter, myNum counter = 0 myNum = 20 Do While myNum > 10 myNum = myNum - 1 counter = counter + 1 Loop MsgBox "迴圈重複了" & counter & "次。"End SubSub ChkLastWhile()Dim counter, myNumcounter = 0myNum = 9DomyNum = myNum - 1counter = counter + 1Loop While myNum > 10MsgBox "迴圈重複了" & counter & "次。"End Sub
Until 關鍵字用於檢查 Do...Loop 語句中的條件。有兩種方式檢查條件：在進入迴圈之前檢查條件（如下面的 ChkFirstUntil 樣本）；或者在迴圈至少運行完一次之後檢查條件（如下面的 ChkLastUntil 樣本）。只要條件為 False，就會進行迴圈。
退出迴圈Sub ChkFirstUntil() Dim counter, myNum counter = 0 myNum = 20 Do Until myNum = 10 myNum = myNum - 1 counter = counter + 1 Loop MsgBox "迴圈重複了" & counter & "次。"End SubSub ChkLastUntil()Dim counter, myNumcounter = 0myNum = 1DomyNum = myNum + 1counter = counter + 1Loop Until myNum = 10MsgBox "迴圈重複了" & counter & "次。"End Sub
Exit Do 語句用於退出 Do...Loop 迴圈。因為通常只是在某些特殊情況下要退出迴圈（例如要避免死迴圈），所以可在 If...Then...Else 語句的 True 語句塊中使用 Exit Do 語句。如果條件為 False，迴圈將照常運行。
在下面的樣本中，myNum 的初始值將導致死迴圈。If...Then...Else 語句檢查此條件，防止出現死迴圈。
使用 While...WendSub ExitExample() Dim counter, myNum counter = 0 myNum = 9 Do Until myNum = 10 myNum = myNum - 1 counter = counter + 1 If myNum < 10 Then Exit Do Loop MsgBox "迴圈重複了" & counter & "次。"End Sub
While...Wend 語句是為那些熟悉其用法的使用者提供的。但是由於 While...Wend 缺少靈活性，所以建議最好使用 Do...Loop 語句。
使用 For...NextFor...Next 語句用於將語句塊運行指定的次數。在迴圈中使用計數器變數，該變數的值隨每一次迴圈增加或減少。
例如，下面的樣本將過程 MyProc 重複執行 50 次。For 語句指定計數器變數 x 及其起始值與終止值。Next 語句使計數器變數每次加 1。
Sub DoMyProc50Times() Dim x For x = 1 To 50 MyProc Next End Sub關鍵字 Step 用於指定計數器變數每次增加或減少的值。在下面的樣本中，計數器變數 j 每次加 2。迴圈結束後，total 的值為 2、4、6、8 和 10 的總和。
Sub TwosTotal() Dim j, total For j = 2 To 10 Step 2 total = total + j Next MsgBox "總和為" & total & "。"End Sub
要使計數器變數遞減，可將 Step 設為負值。此時計數器變數的終止值必須小於起始值。在下面的樣本中，計數器變數 myNum 每次減 2。迴圈結束後，total 的值為 16、14、12、10、8、6、4 和 2 的總和。
Sub NewTotal() Dim myNum, total For myNum = 16 To 2 Step -2 total = total + myNum Next MsgBox "總和為" & total & "。"End Sub
Exit For 語句用於在計數器達到其終止值之前退出 For...Next 語句。因為通常只是在某些特殊情況下（例如在發生錯誤時）要退出迴圈，所以可以在 If...Then...Else 語句的 True 語句塊中使用 Exit For 語句。如果條件為 False，迴圈將照常運行。
使用 For Each...NextFor Each...Next 迴圈與 For...Next 迴圈類似。For Each...Next 不是將語句運行指定的次數，而是對於數組中的每個元素或對象集合中的每一項重複一組語句。這在不知道集合中元素的數目時非常有用。
在以下樣本中，Dictionary 對象的內容用於將文本分別放置在多個文字框中：
<HTML> <HEAD><TITLE>表單與元素</TITLE></HEAD><SCRIPT LANGUAGE="VBScript"><!--Sub cmdChange_nClickDim d '建立一個變數Set d = CreateObject("Scripting.Dictionary")d.Add "0", "Athens" '添加鍵和項目d.Add "1", "Belgrade"d.Add "2", "Cairo"For Each I in dDocument.frmForm.Elements(I).Value = D.Item(I)NextEnd Sub--></SCRIPT><BODY><CENTER><FORM NAME="frmForm"<Input Type = "Text"><p><Input Type = "Text"><p><Input Type = "Text"><p><Input Type = "Text"><p><Input Type = "Button" NAME="cmdChange" VALUE="單擊此處"><p></FORM></CENTER></BODY></HTML>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
