11-程序流程控制——For—Next 循环语句介绍

excel交流

什么是循环？
这里我们指的循环是指重复地执行某项动作（语句块）。

同学们在操场上跑步，两万米长跑，每圈400米。“呯”，枪一响，开始跑，一圈，两圈，三圈......直到跑满50圈才停止。这里，同学们就是在循环地在操场的跑道上执行跑步的动作。

我们来看一下For—next 的句式：

  For 循环变量＝初值 to 终值 step 步长
       循环体1
      [exit for]
      循环体2
  next 循环变量      

解释:从开始到结束，反复执行For和Next之间的指令块，除非遇到Exit For语句，将提前跳出循环。其中，步长和Exit For语句以及Next后的循环变量均可省略，步长省略的时候默认为1。Exit for 语句是强制终止循环的语句，执行它后将退出循环，执行next后面的语句。
循环变量是一个变量，可以在循环体中对其进行修改，但一般就避免在循环体中对其修改。

对句式进行了初步的认识后，我们用这个句式来叙述上面学生跑步的问题。把它编成程序，20000米，要跑50圈，也就是要50次，同学们要在上面一圈，两圈。。。。直到满50圈才停止循环跑步，当然，如果你要提前退赛，就不用跑满50圈了。有了这个思想，程序可以写成：

Sub 循环跑步()
    dim 圈数 as byte
    for 圈数=1 to  50 step 1
         If 学生.要求=退赛
              exit for
         End If
    Next 圈数
End Sub

当然，这只是一个实例，帮助你对For—next语句的理解，下面我们来用一个实例来讲解For-next语句！

问题：求1到1000的自然数的和。程序编为：

1. 
   
2. Sub mysum()
   
3. Dim Lsum As Long, i As Long
   
4. For i = 1 To 1000
   
5.     Lsum = Lsum + i
   
6. Next
   
7. MsgBox "1到1000的自然数和为：" & Lsum
   
8. End Sub
   

复制代码