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

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

No.3 回答者： AKARI0418 回答日時： 2009/01/08 09:22

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

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 回答日時： 2009/01/07 23:42

まずは日本語でかまいませんので、

5の階乗を求める手順を一切省略せずに書いてみてください。
そのあとに6の階乗を求める手順を一切省略せずに書いてみてください。

No.1 回答者： notnot 回答日時： 2009/01/07 23:27

＞さっぱりわかりません

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

この回答への補足

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

補足日時：2009/01/07 23:28