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

問題３

次のような星型を描くプログラムを作成しなさい。

解答例

Sub Star01()    ' 星型を描く
  Dim angle, length
  Dim i, n 
  n = 5 
  angle = 144
  length = 100
  InitializeTurtleGraphics
  For i = 1 To n 
    TGMoveL length
    TGTurn angle
  Next i
End Sub

問題ページへ戻る