如何突破VB递归的限制?

Question

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

Answer 1

>>回复人： 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 这句只是用来测验而已。

Answer 2

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