下面的VBA代码是递归程序退不出来。

Question

下面的VBA代码是递归程序退不出来。我实在也想不出哪有问题，我们单位的高手让我到这问问。帮帮忙看看为什么递归退不出来。Option Explicit Sub menumain_try()
Dim i,j,recountc,ys,cs,cd
ys=1000
recountc=10
cs=0
For i=0 To 2
For j=0To 4
cd=j
MsgBox "开始执行!j="&j
Call xc_ys(i,cd,ys,recountc)
MsgBox "继续执行   j="&j
Next
Next End Sub Function  xc_ys (i,fj,yushu,recountc) Dim k,fjx,yushus For k=fj+1 To recountc
'用数组来进行排序操作比较好，否则指针一直在操作数据库人多容易影响服务器速度
MsgBox  k & "   yushu=" & yushu
If k>=5 Then
Exit Function
End If 
xc_ys i,k,yushu,recountc
Next
End Function

Answer 1

把那个递归函数改一下试试Function  xc_ys (i,fj,yushu,recountc)Dim k,fjx,yushusFunction xc_ys(i, fj, yushu, recountc)Dim k, fjx, yushusFor k = fj + 1 To recountc
'用数组来进行排序操作比较好，否则指针一直在操作数据库人多容易影响服务器速度
MsgBox k & "   yushu=" & yushu
If k >= 5 Then
EndExit FunctionElse: xc_ys i, k, yushu, recountc
End If
NextEnd Function