すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 樹木曲線描画マクロ()     Const TREESTAX = 200         '描画開始位置Ｘ     Const TREESTAY = 300         '                  Ｙ     Const TREESTAL = 50           '幹の長さ     Const TREEBRAN = 5            '枝分かれ回数     '---------------------------------------------------------------------------     Dim intBp(1) As Integer     '     intBp(0) = TREESTAX: intBp(1) = TREESTAY     樹木曲線描画_再帰 TREEBRAN, intBp(), TREESTAL, 90 End Sub '============================================Public Sub 樹木曲線描画_再帰(intNo As Integer, intCp() As Integer,  _                                           intLn As Integer, sngAn As Single)     Const TREEPAIV = 3.14159265358979        'π     Const TREESITA = (T