繰り返し　－　For...Next ステートメントの使い方－１

Forループを使うと、四角形を描くプログラムは次のようになります。

Sub Box_02()
  Dim i
  InitializeTurtleGraphics
 
  For i = i to 4
    TGMoveL 100
    TGTurn 90
  Next i
  
End Sub

このようにすれば、八角形や１２角形を描くのも簡単です。

次の例では、ループを繰り返すごとにカウンタ変数 j の値は 1 ずつ加算されます。

ループが終了すると、変数totalは 1、2、3、4、5、6、7、8、9 および 10 を合計した値になります。

Sub CalcTotal()
  Dim j, total
  
  For j = 1 To 10
    total = total + j
  Next j
  
  MsgBox "合計は " & total & " です"
  
End Sub

繰り返し － For...Next ステートメントの使い方 －１