只要指定的條件為真，就會重復執行壹系列語句。
語法
While條件
[聲明]
..
行
2.做...環
2.1第壹種用法
使用Do循環重復執行壹個語句塊，重復次數不確定。做...循環語句有幾種進化形式，但每壹種都評估數值條件來決定是否繼續執行。就像如果...那麽條件必須是壹個數值或壹個值為真(非零)或假(零)的表達式。
在下面做什麽...Loop循環，只要條件為真，就執行語句。
Do While條件
聲明
..
環
2.2第二種用法
Do的又壹次進化...循環語句是先執行語句，然後在每次執行後測試條件。這種形式確保語句至少執行壹次:
做
聲明
循環While條件
註意:其他兩種進化形式與前兩種類似，除了只要條件為假而不是真，它們就執行循環。
循環零次或多次
Do直到條件
聲明
環
至少循環壹次
做
聲明
循環直到條件
3.為...然後
當不知道語句需要在循環中執行多少次時，應該使用do循環。但是，當您知道要執行多少次時，最好使用For...下壹個循環。與Do循環不同，For循環使用壹個稱為計數器的變量，計數器變量的值在循環的每次叠代後都會增加或減少。For循環的語法如下:
對於計數器=開始到結束[步進增量]
聲明
下壹個[櫃臺]
參數計數器、開始、結束和增量都是數字。
請註意，增量參數可以是正數，也可以是負數。如果increment為正，Start必須小於或等於end，否則無法執行循環中的語句。如果increment為負，Start必須大於或等於end，以便執行循環體。如果未設置步長，增量的默認值為1。
示例:
以下代碼打印出所有有效的屏幕字體名稱:
私有子窗體_Click()
將I標註為整數
對於i = 0進行篩選。FontCount
打印屏幕。字體(壹)
然後
末端接頭
4.對於每個...然後
每個的...下壹個循環類似於For...下壹個循環，但是它為數組或對象集合中的每個元素重復壹組語句，而不是重復這些語句壹定的次數。如果您不知道壹個集合有多少個元素，則每個元素的...下壹個循環非常有用。
每壹個的語法...下壹個循環如下:
對於組中的每個元素
聲明
下壹個元素t
例如，以下子流程打開Biblio.mdb，並將每個表的名稱添加到列表框中。
子列表定義()
Dim objDb作為數據庫
將MyTableDef調暗為TableDef
set objDb = open database(" c:\ VB \ biblio . MDB "，_
真，假)
對於objDb中的每個MyTableDef。TableDefs()
List1。AddItem MyTableDef。名字
下壹個MyTableDef
末端接頭
在對每壹個使用時，請記住壹些限制...接下來:
對於集合，元素只能是變量、通用對象變量或對象瀏覽器中列出的對象。
對於數組，element只能是Variant變量。
對於每個...Next不能用於用戶定義類型的數組，因為Variant不能包含用戶定義類型。