作者jz (Mr. Lee你要去那里)
看板Visual_Basic
标题Re: [VB6 ]一题问题
时间Tue Oct 3 15:20:53 2006
※ 引述《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
1F：推 freeskyd:感谢 我写出来了 10/03 15:58