11-程序流程控制——For—Next 循環(huán)語句介紹

excel交流

什么是循環(huán)？
這里我們指的循環(huán)是指重復(fù)地執(zhí)行某項動作（語句塊）。

同學(xué)們在操場上跑步，兩萬米長跑，每圈400米�！皡纭�，槍一響，開始跑，一圈，兩圈，三圈......直到跑滿50圈才停止。這里，同學(xué)們就是在循環(huán)地在操場的跑道上執(zhí)行跑步的動作。

我們來看一下For—next 的句式：

  For 循環(huán)變量＝初值 to 終值 step 步長
       循環(huán)體1
      [exit for]
      循環(huán)體2
  next 循環(huán)變量      

解釋:從開始到結(jié)束，反復(fù)執(zhí)行For和Next之間的指令塊，除非遇到Exit For語句，將提前跳出循環(huán)。其中，步長和Exit For語句以及Next后的循環(huán)變量均可省略，步長省略的時候默認(rèn)為1。Exit for 語句是強制終止循環(huán)的語句，執(zhí)行它后將退出循環(huán)，執(zhí)行next后面的語句。
循環(huán)變量是一個變量，可以在循環(huán)體中對其進(jìn)行修改，但一般就避免在循環(huán)體中對其修改。

對句式進(jìn)行了初步的認(rèn)識后，我們用這個句式來敘述上面學(xué)生跑步的問題。把它編成程序，20000米，要跑50圈，也就是要50次，同學(xué)們要在上面一圈，兩圈。。。。直到滿50圈才停止循環(huán)跑步，當(dāng)然，如果你要提前退賽，就不用跑滿50圈了。有了這個思想，程序可以寫成：

Sub 循環(huán)跑步()
    dim 圈數(shù) as byte
    for 圈數(shù)=1 to  50 step 1
         If 學(xué)生.要求=退賽
              exit for
         End If
    Next 圈數(shù)
End Sub

當(dāng)然，這只是一個實例，幫助你對For—next語句的理解，下面我們來用一個實例來講解For-next語句！

問題：求1到1000的自然數(shù)的和。程序編為：

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的自然數(shù)和為：" & Lsum
   
8. End Sub
   

復(fù)制代碼