[VB6 ]一題問題
我要寫出一個程式,可以算出
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
→
10/04 01:53, , 1F
10/04 01:53, 1F
→
10/04 01:53, , 2F
10/04 01:53, 2F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
