→ LPH66:沒有錯 是你的N太大了 10/04 01:53
→ LPH66:(啊我搞笑沒看回文) 10/04 01:53
我要寫出一個程式,可以算出
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