11-程序流程控制——For—Next 循环语句介绍
什么是循环？这里我们指的循环是指重复地执行某项动作（语句块）。
同学们在操场上跑步，两万米长跑，每圈400米。“呯”，枪一响，开始跑，一圈，两圈，三圈......直到跑满50圈才停止。这里，同学们就是在循环地在操场的跑道上执行跑步的动作。
我们来看一下For—next 的句式：
For 循环变量＝初值 to 终值 step 步长
循环体1
循环体2
next 循环变量
解释:从开始到结束，反复执行For和Next之间的指令块，除非遇到Exit For语句，将提前跳出循环。其中，步长和Exit For语句以及Next后的循环变量均可省略，步长省略的时候默认为1。Exit for 语句是强制终止循环的语句，执行它后将退出循环，执行next后面的语句。
循环变量是一个变量，可以在循环体中对其进行修改，但一般就避免在循环体中对其修改。
对句式进行了初步的认识后，我们用这个句式来叙述上面学生跑步的问题。把它编成程序，20000米，要跑50圈，也就是要50次，同学们要在上面一圈，两圈。。。。直到满50圈才停止循环跑步，当然，如果你要提前退赛，就不用跑满50圈了。有了这个思想，程序可以写成：
Sub 循环跑步()
dim 圈数 as byte
for 圈数=1 to50 step 1
If 学生.要求=退赛
exit for
End If
Next 圈数
End Sub
当然，这只是一个实例，帮助你对For—next语句的理解，下面我们来用一个实例来讲解For-next语句！
问题：求1到1000的自然数的和。程序编为：
Sub mysum()
Dim Lsum As Long, i As Long
For i = 1 To 1000
Lsum = Lsum + i
Next
MsgBox "1到1000的自然数和为：" & Lsum
End Sub
页:
[1]