プログラムコード再掲
Dim cn As Integer
Private Sub CommandButton1_Click()
CommandButton2_Click
cn = 0
f 'CommandButton1_Clickがサブプロシージャfに仕事を依頼
End Sub
Sub f()
Cells(4 + cn, 1) = "今日は天気がよい"
cn = cn + 1
If cn = 11 Then Exit Sub
f 'fがfに仕事を依頼
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
確かに、fのサブプロシージャ内でfに仕事を依頼しています。
そうすると、自分が自分に仕事を依頼しているように見えます。
ですが、同じ自分でも実は次元が違うのです。
頼む自分と頼まれる自分は、次元の異なる自分です。
？？？？
ですよね。
皆さん、入れ子式人形を知っていますよね。
七福神ですね。
不思議なことに日本にもロシアにもあります。
人形の中に人形が入っています。
頼む自分と頼まれる自分の関係は、
入れ子式人形の外側の人形と内側の人形の関係に相当します。
最初に、CommandButton1_Clickが
f 'CommandButton1_Clickがサブプロシージャfに仕事を依頼
によってfに仕事を依頼しましたが、
これは入れ子式人形の１番外側の人形に仕事をお願いしたのです。
そして、fがfに仕事を頼んでいますが、
これは、１番外側の人形がその１個内側の人形に仕事を依頼したのです。
仕事の連鎖は次のようになっています。
CommandButton1_Clickが１番外側の人形に依頼
↓
１番外側の人形は、外側から２番目の人形に依頼
↓
外側から２番外側の人形は、外側から３番目の人形に依頼
↓
外側から３番外側の人形は、外側から４番目の人形に依頼
↓
＊
＊
＊
です。そして、これがどこまで続くかと申しますと、
cn = cn + 1
If cn = 11 Then Exit Sub
を見ればお分かりのように、
外側から９番外側の人形は、外側から１０番目の人形に依頼
まで続くのです。
それぞれ人形が表示の仕事をするために
と１回「今日は天気がよい」が表示されることになるのです。
入れ子式の人形は似た形をしていますが、
外側の人形と内側の人形では、異なる人形です。
それと同じように、頼む自分と頼まれる自分は似た姿をしていますが、
実は異なる人格です。
これが同じ自分でも次元が異なるということの意味です。
関数＝プロシージャもメモリという舞台で役を演じます。
変数も関数もメモリ上に存在します。
関数は、呼び出されたときだけメモリ上に存在します。
仕事が終わればメモリ上から消えてなくなります。
関数は、生成と消滅を繰り返します。
CommandButton1_Clickがfを呼び出すと、
あるメモリ上でfは仕事をします。
ある番地をもったメモリ上に、fを展開します。
そして、１回目にfがfを呼び出すとき、
そのメモリとは異なるメモリ上にまたfが展開されます。
今回の例では、最終的には異なる１０カ所のメモリ上に、
fが同時に展開されています。
そして、１番内側の人形が任務を終了すると、
１０カ所から９カ所へ、
内側から２番目の人形が業務を終えると
９カ所から８カ所へ
の同時展開の数を減らしながら、
すべての仕事が終わり、
fのメモリ上への展開は終了します。
最大１０人のfが異なるメモリ上（舞台の異なる位置）で踊っていましたが、
最後には、全員が舞台から降ります。
つまり、自分と似た存在１０人が舞台で踊っていたのです。
入れ子式人形の比喩は、fの再帰的呼び出しを説明するのに、
ぴったりですが、
呼び出されない限り、人形は存在しないという点が異なっています。
CommandButton1_Clickがfを呼び出したときに１番外側の人形が発生し、
fがfを呼び出した時点で、内側の人形が発生します。
fがfを呼び出すときに、自分と同型の人形を内側に発生させるし、
任務の遂行が終われば人形は消滅するです。
入れ子式にｆの展開個数は
０→１→２→３→４→５→６→７→８→９→１０→９→・・・→１→０
という途を辿ります。
これで１個目の謎（自分が自分に仕事を頼む不思議)の正体は、ｆが自分の分身を作り出し、
自分の分身に仕事を依頼していたということです。
次元が違うといったのは、自分と自分の分身の違いです。
プロシージャの再帰的呼び出ししとは、結局分身の術なのです。
では、スタックが足りませんとはどういう意味でしょうか。
