vb中的for循環(huán)(VB中的循環(huán)語(yǔ)句中的for)
1.VB中的循環(huán)語(yǔ)句中的for
For循環(huán)的格式：
For 循環(huán)變量 = 初值 To 終值 [Step 步長(zhǎng)] step 2 就是i=i+2
[循環(huán)體]
Next [循環(huán)變量]
注意：
1） 當(dāng)步長(zhǎng) > 0 時(shí)
循環(huán)執(zhí)行的條件：循環(huán)變量 <；= 終值
2） 當(dāng)步長(zhǎng) < 0 時(shí)
循環(huán)執(zhí)行的條件：循環(huán)變量 >；= 終值
強(qiáng)行退出 For 循環(huán)，請(qǐng)使用 Exit For。
舉例1： 單擊命令按鈕 Command1 后，先后彈出很多消息框，消息內(nèi)容一開始是 1，最后是 100，每彈出一次，消息內(nèi)容加 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 語(yǔ)句，代碼如下：
Private Sub Form_Load()
For i = 1 To 100
MsgBox i, vbInformation /vbInformation 指顯示圖標(biāo)，下同
Next
MsgBox "Finished", vbCritical
End Sub
擴(kuò)展資料：
VB的Do循環(huán)
Do。Loop
如果你不知道重復(fù)多少次，可以使用 Do。Loop 語(yǔ)句。
Do。Loop 語(yǔ)句重復(fù)執(zhí)行某段代碼直到條件是 true 或條件變成 true。
重復(fù)執(zhí)行代碼直到條件是 true
您可以使用 While 關(guān)鍵字來(lái)檢查 Do。 Loop 語(yǔ)句的條件。
Do While i>10
some code
Loop
如果 i 等于 9，上述循環(huán)內(nèi)的代碼將終止執(zhí)行。
Do
some code
Loop While i>10
這個(gè)循環(huán)內(nèi)的代碼將被執(zhí)行至少一次，即使 i 小于 10。
重復(fù)執(zhí)行代碼直到條件變成 true
您可以使用 Until 關(guān)鍵字來(lái)檢查 Do。Loop 語(yǔ)句的條件。
Do Until i=10
some code
Loop
如果 i 等于 10，上述循環(huán)內(nèi)的代碼將終止執(zhí)行。
Do
some code
Loop Until i=10
這個(gè)循環(huán)內(nèi)的代碼將被執(zhí)行至少一次，即使 i 等于 10。
退出 Do。Loop
您可以通過(guò) Exit Do 關(guān)鍵詞退出 Do。Loop 語(yǔ)句。
Do Until i=10
i=i-1
If i<10 Then Exit Do
Loop
這個(gè)循環(huán)內(nèi)的代碼，只要 i 不為 10 且 i 大于 10 時(shí)都將被執(zhí)行。
參考資料：搜狗百科——循環(huán)語(yǔ)句
2.vb里面的for循環(huán)
For n=1 to m Step 2說(shuō)明循環(huán)步長(zhǎng)為2，沒(méi)有step的默認(rèn)步長(zhǎng)為1,m=1時(shí)n=1 to 1 Step 2，循環(huán)1次；m=2時(shí)n=1 to 2 Step 2，循環(huán)1次；m=3時(shí)n=1 to 3 Step 2，循環(huán)2次；m=4時(shí)n=1 to 4 Step 2，循環(huán)2次；m=5時(shí)n=1 to 5 Step 2，循環(huán)3次；m=6時(shí)n=1 to 6 Step 2，循環(huán)3次；m=7時(shí)n=1 to 7 Step 2，循環(huán)4次；m=8時(shí)n=1 to 8 Step 2，循環(huán)4次；m=9時(shí)n=1 to 9 Step 2，循環(huán)5次；m=10時(shí)n=1 to 10 Step 2，循環(huán)5次，。
即是1+1+2+。
+5+5=30。
3.VB程序中關(guān)于循環(huán)語(yǔ)句：“FOR”的使用
a是循環(huán)變量，b是初始值，c是步進(jìn)數(shù)，即每循環(huán)一次a的值的變化量。
n=Inputbox("n=")
i=0
s=0
For i =0 to n
i=i+1
s=s+i
Next i
Print s
Private Sub Command1_Click()
Dim i As Integer
Dim a(0 to 9)
Dim b '最大值
Dim c '最小值
Dim s '和
Dim d '平均值
b = 0
c = 0
s = 0
For i = 0 to 9
a(i)=inputbox（"輸入數(shù)字"）
If b < a(i) Then b = a(i)
If c > a(i) Then c = a(i)
s = s + a(i)
Next i
s = s - b - c
d = s / 8
Print d
End Sub
4.VB語(yǔ)句中的for循環(huán)語(yǔ)句這么運(yùn)用
for i=3 to 10000 '查找質(zhì)數(shù)
for j=2 to i-1
x=i mod j
if i<>0 then
exit for '如果除了1和本身，還能被任意小于本身的一個(gè)數(shù)整除，那么此數(shù)不是指數(shù)，并跳出循環(huán)，進(jìn)行下一個(gè)數(shù)的判斷
esle '如果一個(gè)數(shù)不能被所有小于它的數(shù)整除，那么這個(gè)數(shù)就是質(zhì)數(shù)
pds=1 '質(zhì)數(shù)累加的判斷數(shù)，等于1時(shí)，質(zhì)數(shù)個(gè)數(shù)累加1
end if
next j
if pds=1 then
y=y+1 '質(zhì)數(shù)個(gè)數(shù)累加1
end if
next i '指數(shù)查找結(jié)束
for i 1 to 10000 '打印
print i， '打印數(shù)
if i<>10000 then
print space(5) '打印5個(gè)空格
else
print y 在最末尾打印質(zhì)數(shù)的個(gè)數(shù)
end if
if i mod =20 then print 一行打印20個(gè)數(shù)
next i
