堆栈空间溢出

VB code

Dim Pi!Private Function s(n As Long) As DoubleIf n = 1 Thens = 1Else  If n Mod 2 = 0 Then  s = (-1) / (2 * n - 1) + s(n - 1)  Else  s = 1 / (2 * n - 1) + s(n - 1)  End IfEnd IfEnd FunctionPrivate Sub Form_click()Pi = s(5074)Pi = 4 * PiPrint PiEnd Sub

n最大只能取到5704，取5705就溢出了.。。。
当n的值过大时，程序提示堆栈空间溢出，请问怎么修改？？？


[解决办法]
VB的栈空间只有1M，大的递归时，栈溢出是经常不可避免的，换一种算法，消除递归，再说，递归是低效的
[解决办法]
Private Function s(n As Long) As Double
dim i as long, p as double
p = 1
for i = 2 to n
p = p * i
next
s = p
end function
[解决办法]
没事别乱用递归。人不能迂腐。
[解决办法]
可以用循环代替递归.