在递归函数中因不正确使用公共变量而形成死循环
昨天碰到了挺郁闷的错误，我写的一个递归函数，形成了死循环。代码如下：
'递归删除频道,参数:频道ID
Sub DeleteBoard(bid)
'删除该频道所有新闻
News.DeleteByCondition "BoardID=" & bid
'删除该频道所有子频道
Dim bs
bs = Board.GetList("FartherID=" & bid, false, -, -)
If IsArray(bs) Then
For i=LBound(bs) To UBound(bs)
DeleteBoard bs(i).ID
Next
End If
'删除该频道
Board.Delete bid
End Sub后来检查才发现，罪魁祸首就是那个i，它是一个全局变量。递归的时候，在另一次调用的时候，会修改它的值……因而，就莫明其妙的形成了死循环。修改后代码如下：
'递归删除频道,参数:频道ID
Sub DeleteBoard(bid)
'删除该频道所有新闻
News.DeleteByCondition "BoardID=" & bid
'删除该频道所有子频道
Dim bs, i
bs = Board.GetList("FartherID=" & bid, false, -, -)
If IsArray(bs) Then
For i=LBound(bs) To UBound(bs)
DeleteBoard bs(i).ID
Next
End If
'删除该频道
Board.Delete bid
End Sub增加了i的内部声明，这样，就会使用内部的i，而不是全局的那个。
本文参与 腾讯云自媒体分享计划，分享自作者个人站点/博客。
原始发表：2007-05-04 ，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读