推 freeskyd:感謝 我寫出來了 10/03 15:58
※ 引述《freeskyd (時間地雷)》之銘言：
: 我要寫出一個程式,可以算出
: 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＝1會呼叫F(-1)
我想這是主要的bug~~
至於有沒有其他的我就不知道囉~~~
: Y = Y - 2
: Wend
: Debug.Print X
: End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.48.243