VB for 循环

Private Sub Command1_Click()

s=P(1) + P(2) + P(3) + P(4) '调用4次函数p，变量N的指依次为1、2、3、4，并把返回值相加，赋给s

Print s '在窗体上输出(显示)s

End Sub

Public Function P(N As Integer)

Static Sum '静态变量，即每次过程(这里指函数P)结束后依然保留，下次调用p时sum依然是上次的值

For i=1 To N 'Sum＝Sum 加上 从1 到N 所有数字的总和

Sum=Sum + i

Next i

P=Sum '返回Sum的值

End Function

执行P(1)后sum为1 返回1

执行P(2)后sum为1(上次P结束后留下的值)+1+2=4 返回4

执行P(3)后sum为4(上次P结束后留下的值)+1+2+3=10 返回10

执行P(4)后sum为10(上次P结束后留下的值)+1+2+3+4=20 返回20

s=1+4+10+20=35

窗体上显示35

for语句是循环语句，它的格式是：

For

变量=初值

To

终值

〔Step

步长]

循环体

Next

变量

如：

For

i=0

to

999

'这里省略Step说明步长为1

循环体

Next

i

说明从0到999，循环1000次。

又如：

For

i=20

to

0

Step

-2

循环体

Next

i

说明从20到0，以步长为-2，循环10次

你现在明白“For…To…”表示什么了吧！

结果是：

4

7

10

for

语句设置的i的步长为2，当i=2时，x=x+3即x=1+3=4,将此值打印出来，Next

i后，i的值为4，此时x=x+3=4+3=7,再将此值打印出来，再次Next

i后，i的值变为6，再次执行x=x+3=7+3=10，最后再将值打印出来，当再次next

i时，i的值已经编程8不满足

For语句的条件，i的值小于等于6的条件，所以退出For循环。

显示最后结果有很多方法，我最喜欢用的是：Msgbox(s),s就是你的结果。

dim i%,s%就是申明变量，for i=1 to 100 step 2意思就是i从1循环到100，每步跨2，循环中s的值是前一循环s的值加上现在的i值，next i就是进行下一步循环。就是这样

双层循环相当于在**院数座位数，外层循环相当于座位的排数，内层循环则是每一排的每一个座位，比如：

For i = 1 To 10

For j = 1 To 20

Next j

Next i

上述双循环就相当于座位有10排，每一排有20个座位，那么数座位的时候一般是这样数的：

第1排：1、2、3、4、5、……19、20，有20个座位

第2排：1、2、3、4、5、……19、20，有20个座位，累计20+20=40个座位

第3排：1、2、3、4、5、……19、20，有20个座位，累计40+20=60个座位

……

第10排：1、2、3、4、5、……19、20，有20个座位，累计180+20=200个座位

当然咯，学过小学数学的都知道，要算出总共有多少个座位用不着这样一个一个去数的，用每排座位数乘以排数就行了，即2010=200。

因此，上述双层循环的总循环次数就是内层循环次数乘以外层循环次数，即2010=200次。

如果外层或内层的循环次数不是固定的，那么情况就稍微要复杂一些，比如：

For i = 1 To 10

For j = 1 To i

Next j

Next i

不过我们稍加分析就能看出，当外层循环从1变化到10时，内层循环的次数也是从1次递增到10次，因此总的循环次数就是1+2+3+4+5+6+7+8+9+10=55次。

我觉得我已经解析的很透彻了吧？所以你就自己去慢慢体会吧。

以上就是关于VB for 循环全部的内容，包括:VB for 循环、VB中的循环语句中的for... 是怎么用的、VB程序的循环结构，计算程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！