作者freeskyd (时间地雷)
看板Visual_Basic
标题[VB6 ]一题问题
时间Tue Oct 3 12:47:33 2006
我要写出一个程式,可以算出
1! + 3! + ...+N!
我自己写的程式码如下
但是出来结果一直显示堆叠空间不足
请问各位高手有哪里出错吗?
---------------------------------------------------
Private Sub Form_Load()
Y = Val(InputBox("请输入数值"))
Call Product(Y)
End Sub
Sub Product(Y)
X = F(Y)
While Y > 0
X = X + F(Y - 2)
Y = Y - 2
Wend
Debug.Print X
End Sub
Function F(N)
If N = 0 Then
F = 1
Else
F = N * F(N - 1)
End If
End Function
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.194.176
1F：→ LPH66:没有错 是你的N太大了 10/04 01:53
2F：→ LPH66:(啊我搞笑没看回文) 10/04 01:53