階乗計算プログラム例
Private Sub CommandButton1_Click()
Dim n As Long
n = Cells(5, 4)
Cells(6, 4) = "n!="
Cells(6, 5) = f(n)
End Sub
Function f(i As Long)
If i > 0 Then
f = f(i - 1) * i
Else
f = 1
End If
End Function
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Range("A1").Select
End Sub
参考ファイル
さて、
第７講 For文を入れ子式に使い多次元ループを実現する
第６話 順列作成マクロ例
で作ったプログラムを
Subプロシージャの再帰的使用によって改良して、
何の順列であっても作成できるようにすることが、
この講の当初の最終目標でした。
再帰的使用の場合何億人にも分身可能ですから、
理論的には１から１億までの順列でも作成可能ですが、
実際的なところ１２ぐらいまでの順列作成が限界です。
２０ぐらいの順列でも待てばすべて作り出してくれますが、
時間がかかりすぎます。
２０の順列をすべて作り出すということは、その場合の数は
20！＝２０×１９×１８×・・・×１通りもありますので、
さすがのコンピュータでも瞬時という訳にはいきません。
１００ぐらいの順列だとすべてを作り出すには、
宇宙時間(宇宙の始まりから終わりまでの時間）必要かも知れません。
このマクロは、初心者には余りにも難しい課題です。
そこで、順列作成プログラム開発を1つの独立した講にしたいと思います。
したがいまして、お約束の魔方陣自動生成プログラムは
第12講の課題ということになります。
ですが、これで第10講を閉めるのは、
６話構成になってしまいますので、
ちょっと寂しい限りですので、
初心者向けの課題を提示してもう少し続けます。
第７講 For文を入れ子式に使い多次元ループを実現する
第３話 自然配列解答例
で作ったプログラムをSubプロシージャの再帰的使用によって実現しましょう。
