演習問題C - 乱数と条件分岐

Turtleグラフィックスを使用するための準備ができていない場合は、Turtleグラフィックスを使用するための事前準備を参照して用意してください。

tg.xlsmのダウンロード

「信頼できる場所」に保存したExcelファイルをダブルクリックして開いてください。

プロジェクトエクスプローラ内のModule1をダブルクリックして、コードウィンドウを開き、プログラムを記入します。

VBAを利用するためには、セキュリティ・レベルの設定が必要です。

問題1

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

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

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

解答例

問題2

0から1の実数の乱数を発生させ、値に応じて左右に向きを変えて歩く様子をシミュレーションしなさい。

例 0.5以下の場合 右向き TGTurn -angle、0.5以上の場合 左向き TGTurn angle のように指定する。

ヒント:  乱数    Turtleグラフィックスの命令

解答例

Visual Basic Editor      VBAプログラムの実行方法      Turtleグラフィックス       Turtleグラフィックスの命令

メニューページへ