请教：n！在n=200就溢出，怎么改进这个算法？谢谢先

Option Explicit
Private Sub Command1_Click()
Dim n As Long


n = Val(Trim(Text1.Text))

Text2.Text = f(n)
End Sub



Private Function f(n As Long) As Double
If n = 1 Then
    f = 1
Else
    f = n * f(n - 1)
End If
End Function

请教：n！在n=200就溢出，怎么改进这个算法？谢谢先

补充：VB ,  基础类