をFunctionプロシージャで実現する正順版プログラム例
Private Sub CommandButton1_Click()
Cells(5, 1) = "１から１０までの和は"
Cells(6, 3) = f(0)
Cells(7, 1) = "です。"
End Sub
Function f(i As Byte)
If i < 11 Then
f = f(i + 1) + i
Else
f = 0
End If
End Function
解説
今回も１番内側の人形までいって、
自分の内奥の本質が0であることを発見するのは同じです。
ですが、計算過程は次のようになります。
f = 0
f = 0 + 10
f = 10 + 9
f = 19 + 8
f = 27 + 7
f = 34 + 6
f = 40 + 5
f = 45 + 4
f = 49 + 3
f = 52 + 2
f = 54 + 1
f = 55
正順と書きましたが、
計算は逆順です。
Private Sub CommandButton1_Click()
Cells(5, 1) = "１から１０までの和は"
Cells(6, 3) = f(10)
Cells(7, 1) = "です。"
End Sub
Function f(i As Byte)
If i > 0 Then
f = f(i - 1) + i
Else
f = 0
End If
End Function
の方が計算過程は正順なのです。
さて、このコードをいじってｎ！＝１×２×３×・・・×ｎ
を求めるプログラムを完成させてください。
ｎの値はシート側から入れることにします。
これは階乗計算プログラムです。
