Basic
在VisualBasic VBScript VBA 中可使用下列循環語句：
Do...Loop：當（或直到）條件為 True 時循環。
While...Wend：當條件為 True 時循環。
Next：指定循環次數，使用計數器重複運行語句。
For Each...Next：對于集合中的每項或數組中的每個元素，重複執行一組語句。
Do
可以使用 Do...Loop 語句多次（次數不定）運行語句塊。當條件為 True 時或條件變為 True 之前，重複執行語句塊。
當條件為 True 時重複執行語句
While 關鍵字用于檢查 Do...Loop 語句中的條件。有兩種方式檢查條件：在進入循環之前檢查條件（如下面的 ChkFirstWhile 示例）；或者在循環至少運行完一次之後檢查條件（如下面的 ChkLastWhile 示例）。在 ChkFirstWhile 過程中，如果 myNum 的初始值被設置為 9 而不是 20，則永遠不會執行循環體中的語句。在 ChkLastWhile 過程中，循環體中的語句隻會執行一次，因為條件在檢查時已經為 False。
Sub ChkFirstWhile()
Dim counter,myNum
counter = 0
myNum = 20
Do While myNum > 10
myNum = myNum - 1
counter = counter + 1
Loop
MsgBox 循環重複了 & counter & 次。
End Sub
Sub ChkLastWhile()
Dim counter,myNum
counter = 0
myNum = 9
Do
myNum = myNum - 1
counter = counter + 1
Loop While myNum > 10
MsgBox 循環重複了 & counter & 次。
End Sub
重複執行語句直到條件變為 True
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 Sub
Sub ChkLastUntil()
Dim counter,myNum
counter = 0
myNum = 1
Do
myNum = myNum + 1
counter = counter + 1
Loop Until myNum = 10
MsgBox 循環重複了 & counter & 次。
End Sub
退出循環
Exit Do 語句用于退出 Do...Loop 循環。因為通常隻是在某些特殊情況下要退出循環（例如要避免死循環），所以可在 If...Then...Else 語句的 True 語句塊中使用 Exit Do 語句。如果條件為 False，循環将照常運行。
在下面的示例中，myNum 的初始值将導緻死循環。If...Then...Else 語句檢查此條件，防止出現死循環。
Sub 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
..Wend 語句是為那些熟悉其用法的用戶提供的。但是由于 While...Wend 缺少靈活性，所以建議最好使用 Do...Loop 語句。
Next
..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...Next
For Each...Next 循環與 For...Next 循環類似。For Each...Next 不是将語句運行指定的次數，而是對于數組中的每個元素或對象集合中的每一項重複一組語句。這在不知道集合中元素的數目時非常有用。
易語言
易語言循環語句分三種計次循環、判斷循環和循環判斷
計次循環
循環體内的命令重複執行指定的次數。提供的整數參數值決定将重複執行的次數。
計次循環首(循環次數,已循環次數變量)
判斷循環
根據提供的邏輯參數的值，來決定是否進入循環。如果提供的邏輯參數值為真，程序順序執行下一條命令進入循環，否則跳轉到本命令所對應的“判斷循環尾”命令的下一條命令處以跳出循環。
判斷循環首（條件)
循環判斷
循環判斷尾為循環的條件所在，根據提供的邏輯參數的值，來決定是否返回到循環首部繼續進行循環。如果提供的邏輯參數值為真，程序返回到對應的“循環判斷首”命令處繼續進行循環，否則順序執行下一條命令退出本程序循環。
循環判斷尾(條件)
