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

問題２

問題１の結果を利用し、For.. Nextを使って次のような六角形を描くプログラムを作成しなさい。

ヒント：　n角形の内角の余角は、360/ n で与えられる。

解答例

Sub Polygon01()    ' 多角形を描く
  Dim angle, length
  Dim i, n 
  n = 6
  angle = 360 / n
  length = 100
  InitializeTurtleGraphics
  For i = 1 To n
    TGMoveL length
    TGTurn angle
  Next i
End Sub

問題ページへ戻る