階乗の逆数を計算するFunctionを、ループを使い書きたいのですが

質問

階乗の逆数を計算するFunctionを、ループを使い書きたいのですが
さっぱりわかりません
プログラムコードを教えてください。
コードの書き出しは
Function CalculateInverseFactorial(ByVal intN As Integer) As Double
となっています。

回答No.3

AKARI0418

こんな感じでよいのではないでしょうか？

Function CalculateInverseFactorial(ByVal intN As Integer) As Double
Dim ret As Double
Dim i As Integer

ret = 1
For i = intN To 1 Step -1
ret = ret * i
Next i
'逆数に変換
ret = 1 / ret
CalculateInverseFactorial = ret
End Function

回答No.2

Gizensha

まずは日本語でかまいませんので、
5の階乗を求める手順を一切省略せずに書いてみてください。
そのあとに6の階乗を求める手順を一切省略せずに書いてみてください。

回答No.1

notnot

＞さっぱりわかりません

逆に、何がわかるのでしょうか？「ここまではわかる」と書いてもらえば、それを前提に説明できます。
階乗の意味はわかりますか？
「1からNまでの整数の和を求める」とか出来ますか？

補足

階乗の意味などは理解していますが、それをプログラムコードでどう表すのかがさっぱりな所です。
コードでこう書けばOKというもの教えていただければ良いのですが…