演習問題Ｅ － サブプロシージャの呼び出し

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

tg.xlsのダウンロード

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

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

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

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

問題１

次のプログラムを、辺の長さを与えて三角形を描く副プロシージャの呼び出しに書き換えなさい。 

Sub Triangle03()
  Dim length, i
  
  length = 100
  
  InitializeTurtleGraphics
  
  For i = 1 To 3
    TGMoveL length
    TGTurn 120
  Next i
 
End Sub

ヒント

Sub DrawTriangle()
  Dim length

  length = 100
    
  InitializeTurtleGraphics     ' Turtleグラフィックスの初期設定

  Triangle length    ' 三角形を描く副プログラムを呼び出します
  
End Sub

Sub Triangle(length)
  ............
End Sub

解答例

問題２

問題１のプログラムを、辺の数と辺の長さを与えて多角形を描くプロシージャの呼び出しに書き換えなさい。 

Sub DrawPolygon()
  Dim n, length

  InitializeTurtleGraphics    ' Turtleグラフィックスの初期設定

  n = 3     ' 三角形を描きます
  length = 200    ' 辺の長さ
  
  Polygon n, length 　' 多角形を描く副プログラムを呼び出します
  
End Sub
    
Sub Polygon(n, length)
 ' 辺の数　n と辺の長さ　length　の値が渡されます
 ............
End Sub

解答例

問題３

問題２の主プログラム Sub DrawPolygon() を変更し

  1. 辺の長さが２００の四角形
  2. 辺の長さが１５０の六角形

を描きなさい。

解答例

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