0から12までの値ｎを入力し、ｎと階乗ｎ！の値を表示しなさいという問題

0から12までの値ｎを入力し、ｎと階乗ｎ！の値を表示しなさいという問題です。
前にこのプログラムで複数個、同時には計算できない問題を自分で解決したのですがこんどは０が計算できないようです。

System.StackOverflowException' のハンドルされていない例外が WindowsApplication1.exe で発生しました。　とでます

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Long
Dim f As Long

n = CLng(TextBox1.Text)

TextBox2.Text = CStr(Recur(n))
End Sub

Public Function Recur(ByVal arg As Long) As Long　←ここにエラーが
If arg = 1 Then
Recur = arg
Exit Function
End If
Recur = arg * Recur(arg - 1)
End Function
End Class

というプログラムです。分かる方よろしくお願いします。
実行エラーです。

No.1 回答者： mitarashi 回答日時： 2010/01/23 21:48

「0! = 1 と約束されている」という事なので、1の時同様、argが0なら、1を戻しておしまいとしておくしかないのではないでしょうか。

Recur = arg * Recur(arg - 1)　←　この部分が0に対しては適用できません（階乗の定義から外れる）
Wikipedia等でお調べ下さい。

No.2 回答者： junkUser 回答日時： 2010/01/23 23:42

現状では 0が来ると無限再帰になりますね。

----
If arg = 1 Then
Recur = arg
----
のところを
----
If arg <= 1 Then
Recur = 1
----
に変更してはいかがでしょうか。