華閱文章網VB中的For語句
private Sub Form_Click（) '當窗體單擊時觸發此過程Dim i,j as Integer '聲明默認類型變量i（變體型）和長整型變量jprint '在窗體上打印空白的一行For i=1 To 9 '設置循環 i 每次循環從1到9 默認步長1（每次循環加1） '完整： for i = 1 to 9 step 1For j=1 To i '設置循環 j 每次循環從1到i的值 默認步長1（每次循環加1）完整： for i = 1 to i step 1print left((str(j*j) & space(5),4）；'此語句錯誤應為：' Print Left(Str(j * j) & Space(5), 4)' print 在窗體中打印' left(str,n) 取str左邊的n個字符' str(n) 將n這個數值型轉換為字符串型' space(n) 返回n個空格' 翻譯出來就是：' 在窗體中打印出 （j*j 的結果 加上5個空格）的左邊4個字符Next j '執行到這里繼續循環jprint '打印一行空白行next i '執行到這里繼續循環iEnd Sub '結束過程。
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 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語句
Private Sub Command1_Click()
Dim x(0 To 5) As Integer, aryX(0 To 5) As Integer, i, j, k As Integer
Dim mins(0 To 32) As Integer, maxone As Integer
For i = 0 To 5
x(i) = Int(Val(InputBox（"請輸入第" & i + 1 & "個數字"）））
Next i
For j = 0 To 32
For k = 0 To 5
aryX(k) = Abs(j + 1 - x(k))
Next k
mins(j) = Min(aryX())
Next j
maxone = Max(mins)
MsgBox "最終結果是" & maxone
End Sub
Private Function nonum(numeric As Integer)
If numeric > 0 Then
nonum = numeric
Else
nonum = 65535
End If
End Function
Private Function Min(ary() As Integer)
Dim amin As Integer
For i = LBound(ary) To UBound(ary)
If amin > ary(i) Then
amin = ary(i)
End If
Next
Min = amin
End Function
Private Function Max(ary() As Integer)
Dim amin As Integer
For i = LBound(ary) To UBound(ary)
If amin < ary(i) Then
amin = ary(i)
End If
Next
Max = amin
End Function
VB中的For語句
private Sub Form_Click（) '當窗體單擊時觸發此過程
Dim i,j as Integer '聲明默認類型變量i（變體型）和長整型變量j
print '在窗體上打印空白的一行
For i=1 To 9 '設置循環 i 每次循環從1到9 默認步長1（每次循環加1）
'完整： for i = 1 to 9 step 1
For j=1 To i '設置循環 j 每次循環從1到i的值 默認步長1（每次循環加1）完整： for i = 1 to i step 1
print left((str(j*j) & space(5),4);
'此語句錯誤應為：
' Print Left(Str(j * j) & Space(5), 4)
' print 在窗體中打印
' left(str,n) 取str左邊的n個字符
' str(n) 將n這個數值型轉換為字符串型
' space(n) 返回n個空格
' 翻譯出來就是：
' 在窗體中打印出 （j*j 的結果 加上5個空格）的左邊4個字符
Next j '執行到這里繼續循環j
print '打印一行空白行
next i '執行到這里繼續循環i
End Sub '結束過程
VB中for的語句的作用
for 是循環，
for 。
代碼
next
這是個循環體，里面的代碼會執行N次，這個次數由for后面的內容來定。
常見的兩種for
for i =1 to 100
next
這是說變量i從1開始一直到100，循環體內的代碼執行100次，如果代碼中用到i，每次的i會自動加1
另一種是
for each
如，for each frm in forms 就是對forms里的每個frm進行枚舉。
&； 是連接符， "456" & "123"的結果是"456123"
