只要指定的條件為 True，則會重復執行壹系列的語句。
語法
While condition
[statements]
..
Wend
2.Do...Loop
2.1 第壹種用法
用 Do 循環重復執行壹語句塊，且重復次數不定。Do...Loop 語句有幾種演變形式，但每種都計算數值條件以決定是否繼續執行。如同 If...Then condition 必須是壹個數值或者值為 True（非零）或 False（零）的表達式。
在下面的 Do...Loop 循環中，只要 condition 為 True 就執行 statements。
Do While condition
statements
..
Loop
2.2 第二種用法
Do...Loop 語句的另壹種演變形式是先執行語句，然後在每次執行後測試 condition。這種形式保證 statements 至少執行壹次：
Do
statements
Loop While condition
註:其它兩種演變形式類似於前兩個，所不同的是，只要 condition 為 False 而不是 True，它們就執行循環。
循環零次或多次
Do Until condition
statements
Loop
至少循環壹次
Do
statements
Loop Until condition
3.For...Next
在不知道循環內需要執行多少次語句時，宜用 Do 循環。但是，在知道要執行多少次時，則最好使用 For...Next 循環。與 Do 循環不同， For 循環使用壹個叫做計數器的變量，每重復壹次循環之後，計數器變量的值就會增加或者減少。For 循環的語法如下：
For counter = start To end [Step increment]
statements
Next [counter]
參數 Counter、Start、end 和 increment 都是數值型的。
註意 increment 參數可正可負。如果 increment 為正，則 Start 必須小於等於 end，否則不能執行循環內的語句。如果 increment 為負，則 Start 必須大於等於 end，這樣才能執行循環體。如果沒有設置 Step，則 increment 缺省值為 1。
實例：
以下代碼打印出所有有效的屏幕字體名：
Private Sub Form_Click ()
Dim I As Integer
For i = 0 To Screen.FontCount
Print Screen.Fonts (i)
Next
End Sub
4.For Each...Next
For Each...Next 循環與 For...Next 循環類似，但它對數組或對象集合中的每壹個元素重復壹組語句，而不是重復語句壹定的次數。如果不知道壹個集合有多少元素， For Each...Next 循環非常有用。
For Each...Next 循環的語法如下：
For Each element In group
statements
Next elementt
例如，下面的子過程打開 Biblio.mdb，把每壹個表的名字加到列表框中。
Sub ListTableDefs ()
Dim objDb As Database
Dim MyTableDef as TableDef
Set objDb = OpenDatabase("c:\vb\biblio.mdb", _
True, False)
For Each MyTableDef In objDb.TableDefs ()
List1.AddItem MyTableDef.Name
Next MyTableDef
End Sub
請記住使用 For Each...Next 時的幾點限制：
對集合，element 只能是 Variant 變量，或壹般的 Object 變量，或“對象瀏覽器”中列出的對象。
對數組，element 只能是 Variant 變量。
For Each...Next 不能與用戶自定義類型的數組壹起使用，因為 Variant 不可能包含用戶自定義類型。