乱数を利用した問題

問題１

０から１５の整数乱数を発生させ、数値に応じた色で線分を描きなさい。

線分に色をつけるには、色番号を c として、TGMoveL length, QBColor (c) のように指定します。 

ヒント：　　乱数      整数乱数の発生方法　　　　　　 QBColor関数

解答例

' 乱数のテスト　－　色の異なる線分
Sub rand_01()
  Dim i, c 
  Randomize
  InitializeTurtleGraphics
  For i = 1 To 10
    c = Int(Rnd(1) * 16)
    TGMoveL 20, QBColor(c)
  Next i
End Sub

問題ページへ戻る