在递归函数中因不正确使用公共变量而形成死循环

昨天碰到了挺郁闷的错误，我写的一个递归函数，形成了死循环。代码如下：

 1
 2'递归删除频道,参数:频道ID
 3Sub DeleteBoard(bid)
 4    '删除该频道所有新闻
 5    News.DeleteByCondition "BoardID=" & bid
 6    '删除该频道所有子频道
 7    Dim bs
 8    bs = Board.GetList("FartherID=" & bid, false, -1, -1)
 9    If IsArray(bs) Then
10        For i=LBound(bs) To UBound(bs)
11            DeleteBoard bs(i).ID
12        Next
13    End If
14    '删除该频道
15    Board.Delete bid
16End Sub
17

后来检查才发现，罪魁祸首就是那个i，它是一个全局变量。递归的时候，在另一次调用的时候，会修改它的值……因而，就莫明其妙的形成了死循环。修改后代码如下：

 1
 2'递归删除频道,参数:频道ID
 3Sub DeleteBoard(bid)
 4    '删除该频道所有新闻
 5    News.DeleteByCondition "BoardID=" & bid
 6    '删除该频道所有子频道
 7    Dim bs, i
 8    bs = Board.GetList("FartherID=" & bid, false, -1, -1)
 9    If IsArray(bs) Then
10        For i=LBound(bs) To UBound(bs)
11            DeleteBoard bs(i).ID
12        Next
13    End If
14    '删除该频道
15    Board.Delete bid
16End Sub
17

增加了i的内部声明，这样，就会使用内部的i，而不是全局的那个。

---

如果您觉得阅读本文对您有帮助，请点一下“推荐”按钮，您的“推荐”将是我最大的写作动力！欢迎各位转载，但是未经作者本人同意，转载文章之后必须在文章页面明显位置给出作者和原文连接，否则保留追究法律责任的权利。