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

昨天碰到了挺郁闷的错误,我写的一个递归函数,形成了死循环。代码如下:
 1在递归函数中因不正确使用公共变量而形成死循环
 2在递归函数中因不正确使用公共变量而形成死循环'递归删除频道,参数:频道ID
 3在递归函数中因不正确使用公共变量而形成死循环Sub 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
16在递归函数中因不正确使用公共变量而形成死循环End Sub
17在递归函数中因不正确使用公共变量而形成死循环
后来检查才发现,罪魁祸首就是那个i,它是一个全局变量。递归的时候,在另一次调用的时候,会修改它的值……因而,就莫明其妙的形成了死循环。修改后代码如下:
 1在递归函数中因不正确使用公共变量而形成死循环
 2在递归函数中因不正确使用公共变量而形成死循环'递归删除频道,参数:频道ID
 3在递归函数中因不正确使用公共变量而形成死循环Sub 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
16在递归函数中因不正确使用公共变量而形成死循环End Sub
17在递归函数中因不正确使用公共变量而形成死循环
增加了i的内部声明,这样,就会使用内部的i,而不是全局的那个。 我不相信神话,我只相信汗水!我不相信命运,我只相信双手!
上一篇:多线程带智能采集策略的采集系统


下一篇:分析midea0978的《一个C#算法分析求解》(二)