を実現するプログラム主要部分再掲
Private Sub CommandButton1_Click()
Dim n As Integer
n = Cells(4, 2)
Cells(4, 5) = f(n)
End Sub
Function f(g As Integer)
If g > 0 Then
f = f(g - 1)
Else
f = 0
End If
f = f + g
End Function
解説
まず、社長であるCommandButton1_Clickが社員であるfに仕事を命じます。
1からnまでの和を調べて報告しなさいという命令です。
fはこのとき始めて世に生まれます。
正確に言うと、メモリー上にfが展開されます。
比喩でいうと、CommandButton1_Clickにコールされて、
初めて人形は出現します。
この人形は、この例では引数としてnを渡されます。
人形ははじめに渡された値がnより大きいか大きくないかを調べます。
この例では、最初の人形は3を渡されています。
3は0より大きいですから、
If文の肯定側が実施されます。
f(3)はf(2)に値を問い合わせます。
（f(3)という人形の任務は、
３＋２＋１を計算して報告することですが、
３＋２＋１＝３＋（２＋１）ですから、
２＋１の結果が分からないと答を出せません。
そこで、f(2)に２＋１の答えは何であるか問い合わせるわけです。）
f(3)がf(2)をコールした瞬間に、入れ子式に２番目の人形が出現します。
f(3)という人形の中にf(2)という人形が生まれるのです。
そして、f(2)はf(3)から渡された値2が0より大きいか調べます。
2はもちろん0より大きいですから、f(2)はf(1)に値を問い合わせします。
f(1)がコールされた瞬間に入れ子式の３番目の人形が発生します。
３番目の人形f(1)も引数1が0より大きいかを調べますが、
もちろん0より大きいですから、
f(1)はf(0)に値を問い合わせます。
４個目の人形の出現です。
これが入れ子式人形の1番内側の人形になります。
初めて、引数の値0が0よりは大きくないですから、
If文の否定側
If g > 0 Then
f = f(g - 1)
Else
f = 0
End If
が実行されて、fに初めて0が代入されます。
さらに、
f = f + g （gはf(0)の括弧内の数字）
によって、
f = 0 + 0
の計算から
f = 0
となって、f(1)に戻り値の0が返されます。
この瞬間に1番内側の人形f(0)（４個目の人形）は、消滅します。
任務を終了したからです。
さて、f(0)から0を戻されたf(1)は
If g > 0 Then
f = f(g - 1)
fに0を代入します。
そして、
f = f + g （gはf(1)の括弧内の数字）
から
f = 0 + 1
が計算されて
f = 1
となりそれをf(2)に返します。
f(1)も任務を終了して消滅します。
つまり、３個目の人形が消滅しています。
さて、f(2)はf(1)から返された戻り値1を
f = f(g - 1)
fに代入します。
そして、
f = f + g （gはf(2)の括弧内の数字）
から
f = 1 + 2
が計算されて
f = 3
となりそれをf(3)に返します。
この瞬間に２個目の人形であったf(2)が消滅します。
f = f(g - 1)
によってfに3が代入されます。
最後、
f = f + g （gはf(3)の括弧内の数字）
から
f = 3 + 3
が計算されて
f = 6
そして、1個目の人形であるf(3)は6をCommandButton1_Clickに返して、
すべての人形が消滅しますが、
６が
Cells(4, 5) = f(n)
によってE4に表示されています。
どうして、以上の操作で１＋２＋３＝６が計算されるのでしょうか。
