華閱文章網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 時都將被執行。 參考資料：百度百科——循環語句。
