如何突破VB递归的限制?

[gcdead]

如何突破VB递归的限制?
到6448 就 Out of stack space了，测试程如下：
Private Sub Command1_Click()
xloop 1
MsgBox "done"
End Sub

Sub xloop(x As Long)
Debug.Print x
If x < 10000 Then xloop x + 1
End Sub

[用户 昵称]

大一点的递归用不了这么多久退出了

[Sean918]

"如何突破VB递归的限制?"

我不明白，其他语言在同样的机器上得到的结果怎么样？

[GladisionBoy]

这好像不是VB的问题吧。因为堆栈空间是有限的，只能保存有限的函数调用，因此调用的函数一多就有问题了，可能与操作系统的配置有关吧。

[Zedee]

Private Sub Command1_Click()
for x=1 to 9999
Debug.Print x
next
MsgBox "done"
End Sub
这样不行吗

[gcdead]

>>回复人： seeze() (
>>Private Sub Command1_Click()
>> for x=1 to 9999
>> Debug.Print x
>> next
>> MsgBox "done"
>>End Sub
>>这样不行吗

我的程序可能递归很深，If x < 10000 Then xloop x + 1 这句只是用来测验而已。

[佛的光辉]

递归这么深？可能要改改你的程序了

[qixg]

递归的深度与堆栈有关，是一定的。你可以试试goto,虽然有点不和规矩但很实用，而且可以减少很多系统开销。