演習問題Ｂ － 繰り返し
Turtleグラフィックスを使用するための準備ができていない場合は、Turtleグラフィックスを使用するための事前準備 を参照して用意してください。
「信頼できる場所」に保存したExcelファイルをダブルクリックして開いてください。
プロジェクトエクスプローラ内のModule1をダブルクリックして、コードウィンドウを開き、プログラムを記入します。
VBAを利用するためには、セキュリティ・レベルの設定が必要です。
Visual Basic Editor VBAプログラムの実行方法 Turtleグラフィックス Turtleグラフィックスの命令
問題１
次のプログラムをFor.. Nextを使って書き換えなさい。
解答例
Sub Triangle01()
Dim angle, length
angle = 120
length = 100
InitializeTurtleGraphics
TGMoveL length
TGTurn angle
TGMoveL length
TGTurn angle
TGMoveL length
End Sub
問題２
問題１の結果を利用し、For.. Nextを使って次のような六角形を描くプログラムを作成しなさい。
ヒント： n角形の内角の余角は、360/ n で与えられる。
問題３
次のような星型を描くプログラムを作成しなさい。
問題４
For.. Nextを使って、円を多角形として近似し描きなさい。
例ヒント 辺の長さを２とし、３６０角形としてプログラムを作成しなさい。
