vb中的for循环(VB中的循环语句中的for)
1.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>10
some code
Loop
如果 i 等于 9，上述循环内的代码将终止执行。
Do
some code
Loop While i>10
这个循环内的代码将被执行至少一次，即使 i 小于 10。
重复执行代码直到条件变成 true
您可以使用 Until 关键字来检查 Do。Loop 语句的条件。
Do Until i=10
some code
Loop
如果 i 等于 10，上述循环内的代码将终止执行。
Do
some code
Loop Until i=10
这个循环内的代码将被执行至少一次，即使 i 等于 10。
退出 Do。Loop
您可以通过 Exit Do 关键词退出 Do。Loop 语句。
Do Until i=10
i=i-1
If i<10 Then Exit Do
Loop
这个循环内的代码，只要 i 不为 10 且 i 大于 10 时都将被执行。
参考资料：搜狗百科——循环语句
2.vb里面的for循环
For n=1 to m Step 2说明循环步长为2，没有step的默认步长为1,m=1时n=1 to 1 Step 2，循环1次；m=2时n=1 to 2 Step 2，循环1次；m=3时n=1 to 3 Step 2，循环2次；m=4时n=1 to 4 Step 2，循环2次；m=5时n=1 to 5 Step 2，循环3次；m=6时n=1 to 6 Step 2，循环3次；m=7时n=1 to 7 Step 2，循环4次；m=8时n=1 to 8 Step 2，循环4次；m=9时n=1 to 9 Step 2，循环5次；m=10时n=1 to 10 Step 2，循环5次，。
即是1+1+2+。
+5+5=30。
3.VB程序中关于循环语句：“FOR”的使用
a是循环变量，b是初始值，c是步进数，即每循环一次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（"输入数字"）
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语句中的for循环语句这么运用
for i=3 to 10000 '查找质数
for j=2 to i-1
x=i mod j
if i<>0 then
exit for '如果除了1和本身，还能被任意小于本身的一个数整除，那么此数不是指数，并跳出循环，进行下一个数的判断
esle '如果一个数不能被所有小于它的数整除，那么这个数就是质数
pds=1 '质数累加的判断数，等于1时，质数个数累加1
end if
next j
if pds=1 then
y=y+1 '质数个数累加1
end if
next i '指数查找结束
for i 1 to 10000 '打印
print i， '打印数
if i<>10000 then
print space(5) '打印5个空格
else
print y 在最末尾打印质数的个数
end if
if i mod =20 then print 一行打印20个数
next i
