マクロ
を結果を報告しない社員がグローバル変数を用いないで、
自分に命令を繰り返すことによって実現するプログラム例
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Cells(5, 2)
Call f(0, a)
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(5, 2).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
Sub f(w As Integer, a As Integer)
w = w + a
If a - 1 >= 0 Then Call f(w, a - 1) Else Cells(6, 1) = w
End Sub
頭が混乱しますね。
ですが、頭の体操になります。
社員が自分に繰り返し命令することによる
応用プログラムはまだまだ考えられます。
この第11講ではこの方法を用いて、
順列を実現することを考えましょう。
順列とは１２３４ならば、それをすべて並び替えた
１２３４
１２４３
１３２４
１３４２
１４２３
１４３２
２１３４
２１４３
２３１４
２３４１
２４１３
２４３１
３１２４
３１４２
３２１４
３２４１
３４１２
３４２１
４１２３
４１３２
４２１３
４２３１
４３１２
４３２１
が答えです。
これを全部作り出すプログラムはＦｏｒ文では非常に大変です。
まして、20個の数字の順列なら絶望的ですが、
社員が自分に命令を繰り返す方法なら簡単ですし、
普遍的な（一般的な）プログラムを作ることもできます。
さらに、これを応用すれば
魔方陣の自動生成でさえ可能になります。
もちろん、その先には数独自動生成ソフトが待っています。
すぐに魔方陣作成に入りたいところですが、
魔方陣を自動生成するには、
添え字付きの名前を持った箱（配列）の学習が必要です。
第８話へ 第10講第１話へ
vc++講義へ
