For....Next 迴圈

張貼日期：May 06, 2013 2:46:2 PM

一、使用For...Next迴圈可以明確控制迴圈執行次數

• 1. 格式：

  2. For 變數=初始值 To 終止值 [Step 每次增加數]

  3. 程式區段

  4. Next

  5. 範例：

  6. Dim a,sum as integer

  7. For a=1 to 100

  8. sum=sum+a '計算1~100的總和

  9. next

二、巢狀迴圈

• 1. 巢狀迴圈指的是迴圈內還有迴圈

  2. dim i,j ,sum as integer

  3. For i=1 to 5

  4. For j=1 to 5

  5. sum=sum+1 '這一行指令將執行5*5共25次 ，最後 sum=25

  6. Next

  7. Next

  8. 巢狀迴圈常用在二維陣列上

  9. 假設Form表單上有一Label物件為L3

  10. dim i,j as integer

  11. For i=1 to 20 step 2

  12. For j=1 to 20 step 2

  13. L3.text=L3.text & "*" '每執行一次就在L3.Text加上一個 "*"

  14. Next

  15. L3.text=L3.text & vbnewline '換行

  16. Next

  17. 執行畫面如下：