をSubプロシージャで実現するプログラム例
Dim w As Byte
Private Sub CommandButton1_Click()
w = 0
f (1)
End Sub
Sub f(i As Byte)
w = w + i
If i < 10 Then
f (i + 1)
Else
Cells(5, 1) = "１から１０までの和は"
Cells(6, 3) = w
Cells(7, 1) = "です。"
End If
End Sub
もちろん
Private Sub CommandButton1_Click()
w = 0
f (0)
End Sub
としても結果は同じです。この場合は、
w = 0
w = w + 0
w = w + 1
w = w + 2
w = w + 3
w = w + 4
w = w + 5
w = w + 6
w = w + 7
w = w + 8
w = w + 9
w = w + 10
の計算をしたことになります。
分身の術により１１人に分身したことになります。
Subプロシージャだと、グローバル変数を用意しないと、
１から１０までの和を求めるプログラムは難しくなります。
例えば、次のようにすればグローバル変数を使わないで
１から１０までの和は求められます。
Private Sub CommandButton1_Click()
Call f(0, 1)
End Sub
Sub f(w As Byte, i As Byte)
w = w + i
If i < 10 Then
Call f(w, i + 1)
Else
Cells(5, 1) = "１から１０までの和は"
Cells(6, 3) = w
Cells(7, 1) = "です。"
End If
End Sub
尚、
Call f(0, 1)
などとCallが付いていますが、
引数が複数になる場合Callをつけないとエラーします。
もし、Callをつけたくない場合は、
f 0, 1
としなければなりません。
私の好みはf(0, 1)なのですが、VBやVBAでは認められていません。
f(0, 1)を使いたいときはCallを付けなければなりません。
上手く工夫すれば、
引数１つでSubプロシージャでも実現できるかも知れませんが、
凡庸な私の頭では思いつきません。
ですが、その私でもFunctionプロシージャなら簡単に実現できます。
皆さん考えてみてください。
ただし、ノーヒントでは難しいので、
CommandButton1_Clickの部分は載せておきましょう。
Private Sub CommandButton1_Click()
Cells(5, 1) = "１から１０までの和は"
Cells(6, 3) = f(10)
Cells(7, 1) = "です。"
End Sub
つまり、逆順にプログラムを組むということです。
w = w + 10
w = w + 9
w = w + 8
w = w + 7
w = w + 6
w = w + 9
w = w + 5
w = w + 4
w = w + 3
w = w + 2
w = w + 1
w = 0
このヒントを載せてもかなりの難問です。
皆さんじっくり考えてみてください。
