華閱文章網VB中的循環語句中的for
For循環的格式： For 循環變量 = 初值 To 終值 [Step 步長] step 2 就是i=i+2 [循環體] Next [循環變量] 注意： 1） 當步長 > 0 時 循環執行的條件：循環變量 <= 終值 2） 當步長 < 0 時 循環執行的條件：循環變量 >= 終值 強行退出 For 循環，請使用 Exit For。
舉例1： 單擊命令按鈕 Command1 后，先后彈出很多消息框，消息內容一開始是 1，最后是 100，每彈出一次，消息內容加 1，也就是 1; 2; 3; 。; 98; 99; 100。
VB 代碼如下： Private Sub Command1_Click() Dim i As Long For i = 1 To 100 MsgBox i Next End Sub 如果使用 For 語句，代碼如下： Private Sub Form_Load() For i = 1 To 100 MsgBox i, vbInformation /vbInformation 指顯示圖標，下同 Next MsgBox "Finished", vbCritical End Sub 擴展資料： VB的Do循環 Do。Loop 如果你不知道重復多少次，可以使用 Do。
Loop 語句。 Do。
Loop 語句重復執行某段代碼直到條件是 true 或條件變成 true。 重復執行代碼直到條件是 true 您可以使用 While 關鍵字來檢查 Do。
Loop 語句的條件。 Do While i>10some codeLoop 如果 i 等于 9，上述循環內的代碼將終止執行。
Dosome codeLoop While i>10 這個循環內的代碼將被執行至少一次，即使 i 小于 10。 重復執行代碼直到條件變成 true 您可以使用 Until 關鍵字來檢查 Do。
Loop 語句的條件。 Do Until i=10some codeLoop 如果 i 等于 10，上述循環內的代碼將終止執行。
Dosome codeLoop Until i=10 這個循環內的代碼將被執行至少一次，即使 i 等于 10。 退出 Do。
Loop 您可以通過 Exit Do 關鍵詞退出 Do。Loop 語句。
Do Until i=10i=i-1If i<10 Then Exit DoLoop 這個循環內的代碼，只要 i 不為 10 且 i 大于 10 時都將被執行。 參考資料：百度百科——循環語句。
vb的幾種循環結構
*。
Wend 語句只要指定的條件為 True，則會重復執行一系列的語句。語法While condition[statements]..*。
Loop2.1 第一種用法用 Do 循環重復執行一語句塊，且重復次數不定。Do。
Loop 語句有幾種演變形式，但每種都計算數值條件以決定是否繼續執行。如同 If。
Then condition 必須是一個數值或者值為 True（非零）或 False（零）的表達式。在下面的 Do。
Loop 循環中，只要 condition 為 True 就執行 statements。Do While conditionstatements..Loop2.2 第二種用法Do。
Loop 語句的另一種演變形式是先執行語句，然后在每次執行后測試 condition。這種形式保證 statements 至少執行一次：DostatementsLoop While condition注：其它兩種演變形式類似于前兩個，所不同的是，只要 condition 為 False 而不是 True，它們就執行循環。
循環零次或多次 Do Until condition statementsLoop至少循環一次 Do statementsLoop Until condition *。Next在不知道循環內需要執行多少次語句時，宜用 Do 循環。
但是，在知道要執行多少次時，則最好使用 For。Next 循環。
與 Do 循環不同， For 循環使用一個叫做計數器的變量，每重復一次循環之后，計數器變量的值就會增加或者減少。For 循環的語法如下：For counter = start To end [Step increment]statementsNext [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 *unt Print * (i) NextEnd * Each。NextFor Each。
Next 循環與 For。Next 循環類似，但它對數組或對象集合中的每一個元素重復一組語句，而不是重復語句一定的次數。
如果不知道一個集合有多少元素， For Each。Next 循環非常有用。
For Each。Next 循環的語法如下：For Each element In groupstatementsNext elementt例如，下面的子過程打開 *，把每一個表的名字加到列表框中。
Sub ListTableDefs () Dim objDb As Database Dim MyTableDef as TableDefSet objDb = OpenDatabase("c:\vb\*", _ True, False) For Each MyTableDef In *efs () *m * Next MyTableDefEnd Sub請記住使用 For Each。Next 時的幾點限制： 對集合，element 只能是 Variant 變量，或一般的 Object 變量，或“對象瀏覽器”中列出的對象。
對數組，element 只能是 Variant 變量。For Each。
Next 不能與用戶自定義類型的數組一起使用，因為 Variant 不可能包含用戶自定義類型。
求VB中的For循環語句單層循環的例子一個
把if和msgbox寫在 統一行，是默認為沒有endif的條件句，把換行msgbox寫入if和endif中間即可
elseif方式：
if ci = 1 then
msgbox "第五位數字是" & pce
elseif ci = 2 then
msgbox "第三位數字是" & pcc
elseif ci = 3 then
msgbox "第二位數字是" & pcb
elseif ci = 4 then
msgbox "第一位數字是" & pca
elseif ci >= 5 then
msgbox "這還提示啊。。"
end if
VB循環語句主要有哪些帶說明
1、行IF語句
在一行中寫完的IF語句，稱為行IF語句。
語句格式：IF <；條件> THEN <；語句1> [ELSE <；語句2>]
命令功能：當條件滿足時，執行語句1，條件不滿足時，則執行語句2。
例子：輸入x，判斷x的正負。
程序編制如下：
Dim X As Integer
a: X = InputBox("X=:")
If X = 0 Then
Print "輸入錯誤，重新輸入！"
GoTo a:
End If
If X > 0 Then Print "x為正數"
If X < 0 Then Print "x為負數"
2、塊IF語句
語句格式：IF <；條件> THEN
<；語句組1>
[ELSE
<；語句組2>]
END IF
語句功能：當條件滿足時，執行語句組1；條件不滿足時，則執行語句組2。執行完相應語句組后，退出IF語句執行END IF語句以下語句序列。
例子：輸入年份，判斷此年份是否為潤年。
程序編制如下：
a: year = InputBox（"輸入年份："）
If year <= 0 Then
Print "輸入錯誤，重新輸入！"
GoTo a:
End If
If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then
Print year;
Print "年是潤年"
Else
Print year;
Print "年不是潤年"
End If
3、FOR循環，語句格式：
FOR <；循環變量>=<；初值>TO<；終值>[STEP<；步長>]
[<；循環體>]
[EXIT FOR]
NEXT[<；循環變量>]
語句功能：從循環的初值到終值按步長增值控制計數重復執行循環體。
例子： 用FOR語句編寫計算S=1+2+3+…+100的程序。
FOR I=1 TO 100 STEP 1
S=S+I
NEXT I
4、DO循環，語句格式：
DO
<；循環體>
[EXIT DO]
LOOP
語句功能：無休止的執行循環體。如果有條件語句配合可控制退出循環。
例子： 用EXIT DO語句編寫計算S=1+2+3+…+100的程序。
X=0:S=0
DO
X=X+1
S=S+X
IF X>=100 THEN EXIT DO
LOOP
關于vb for循環語句
循環結構是程序中一種很重要的結構。在給定條件成立時，可反復執行某程序段，直到條件不成立為止。給定的條件稱為循環條件，反復執行的程序段稱為循環體。在VB中提供了多種循環語句供用戶使用循環，下面介紹兩種常用的形式：For語句和Do語句。
一、For語句
For循環（For……Next）語句的基本格式為：
For 循環變量=初值 To 終值 Step 增量，循環體，Next 變量
循環變量為數值型變量，初值、終值、增量均為數值型表達式。“Step 增量”部分可以省略，缺省時默認為1。在循環體中使用Exit
For語句可直接中止循環，執行next后面的語句。當增量值為正數時，For循環的執行過程如下：
(1) 將循環變量賦初值；
(2)比較循環變量是否小于等于終值，小于等于時循環條件成立，運行一次循環體中的語句；如果循環條件不成立時，循環結束，執行Next后面的語句；
(3)遇到Next語句，循環變量增加增量值，轉到（2）繼續循環；
增量值為負數時，For循環的執行過程第（2）步不同。比較循環變量是否大于等于終值，大于等于時循環條件成立，運行一次循環體中的語句；如果循環條件不成立時，循環結束，執行Next后面的語句結束。
VB循環語句
循環語句包括For-Next、While-Wend、Do-Loop語句。
暫且先給你介紹一下這些語句的簡單用法：For-Next語句：For 變量 = 初值 To 終值 [Step 步長] 循環體Next當循環變量的值在初值到終值范圍內時，執行一次循環體中的語句塊，并使初值增加一個步長。當循環變量的值不在初值到終值范圍內時，就退出循環，執行Next后面的語句。
For循環語句執行的流程圖。其中，Step 步長 可省略，省略時，步長=1. 例如：Private Sub Form_Activate()For i = 1 To 5 Step 1 Print iNextEnd Sub在這個例子中，運行程序后，窗體上會寫出如下文字：12345解析：變量i由初值1到終值5共循環5次，每次循環時，輸出i，并且將i的值加上步長的值1.所以，但第二次循環式，i的值就變為2.循環5此后，i的值變為5.再循環時i就變為6，便超過了終值5，因此循環結束，VB開始運行Next語句之后的代碼。
Do-Loop語句：Do循環體。[Exit Do]Loop循環體會在Do 與 Loop 之間不停循環。
Exit Do 語句可有可無，是為了設定當滿足一定條件后，運行Exit Do 語句，即退出循環。如：Private Sub Form_Activate()Dim i As Integeri = 1Do Print i i = i + 1 '每次循環時都使i的值增加1 If i > 5 Then Exit Do '當i的值大于5（即循環5此后）時，退出循環LoopEnd Sub其運行效果與上面的例子相同。
以上說明絕對不是復制的，給點辛苦分也行，謝謝~~。
vb中的循環語句
循環語句包括For-Next、While-Wend、Do-Loop語句比較常用的是for和whileFor-Next語句：
For 變量 = 初值 To 終值 [Step 步長]
循環體
Next
While Wend 語句：
While 條件
循環體
Wend
但滿足條件時，（如當i>5時），便退出循環，否則執行循環體。Do-Loop語句：
Do
循環體
。[Exit Do]
Loop
循環體會在Do 與 Loop 之間不停循環。Exit Do 語句可有可無，是為了設定當滿足一定條件后，運行Exit Do 語句，即退出循環。for應該是最簡單的，因為不用自己去控制自增或自減，只要設置初始值，循環條件，和步階就行了~
VB中循環語句詳解,最好有些例程
循環語句有
1.
DO
LOOP while '當。的時候做
2.
DO
LOOP until '做。直到
循環語句最怕死循環
也就是永遠不可能跳出來的一個條件被設置
例如：
k = 1
Do
k = k + 1
Loop Until k < 1 ' K=K+1 ，直到K<1. 但K永遠不可能小于1，所以無限下去，程序自己鎖死
正確的設置條件非常重要
正確的方法是
k = 1
x = 1
Do
k = k * x
x = x + 1
Loop While x < 10
MsgBox k
因為在DO當中會不停地處理，直到退出DO
所以有可能在長時間運算時，程序無響應，所以最好是
DO
。
DoEvents '處理其他后再繼續
loop Until
還有一種是FOR
FOR X = N TO M step S
Next X
'X 的值為 N 到 M，每次加 S（步長）， step S可以不寫，則 step S 默認為 step 1
中間為程序體
VB中的for循環語句問題
1換行2。
b的作用是計數Dim a, b As Integer定義變量，雖然這樣定義也沒錯，但是最好不要養成習慣，因為vb跟其他語言不同，一次只能定義一個標準寫法為Dim a as integer, b As IntegerFor a = 100 To 300循環，從100到300，共計201次循環If b Mod 5 = 0 Then Print 假如b除以5余數為0換行，即b=0,5,10,15。.這些數字就換行Print a，最后的逗號是打錯了吧，應該是分號之類的，作用是打印出a的值，加分號不換行b = b + 1 b自加1，這樣才能實現每5個換行，不然b一直為0每個都會換行Next a。
