繰り返し　－　For.. Next の問題

問題１

次のプログラムをFor.. Nextを使って書き換えなさい。

Sub Triangle01()
Dim angle, length
angle = 120
length = 100
InitializeTurtleGraphics
TGMoveL length
TGTurn angle
TGMoveL length
TGTurn angle
TGMoveL length
End Sub

解答例

Sub Triangle02()    ' 三角形を描く
  Dim angle, length
  Dim i
  angle = 120
  length = 100
  InitializeTurtleGraphics
  For i = 1 To 3
    TGMoveL length
    TGTurn angle
  Next i
End Sub

問題ページへ戻る