華閱文章網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 循環變量 = 初值 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語句
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的語句的作用
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"
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。