総合問題

問題Ｆ３

問題1の星形を描くSubプロシージャを利用して、ランダムに色を指定して星形を描くプログラムを作成しなさい。

解答例

Sub RandomColors_1()
  Dim length, c
  Dim i

  InitializeTurtleGraphics
  randomize
  c = Int(Rnd(1) * 15)
  length = 300

  DrawStar length, c
  
End Sub

問題ページへ戻る