在遞歸函數中因不正确使用公共變量而形成死循環

昨天碰到了挺郁悶的錯誤，我寫的一個遞歸函數，形成了死循環。代碼如下：

 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，它是一個全局變量。遞歸的時候，在另一次調用的時候，會修改它的值……因而，就莫明其妙的形成了死循環。修改後代碼如下：

    Dim bs, i

增加了i的内部聲明，這樣，就會使用内部的i，而不是全局的那個。

我不相信神話，我隻相信汗水！我不相信命運，我隻相信雙手！