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

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

'递归删除频道,参数:频道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,而不是全局的那个。

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏微信音视频小程序

教你1天搭建自己的“微视”

A simple iOS Application project is shown below to illustrate how to configure S...

6265
来自专栏Jacklin攻城狮

iOS开发中权限再度梳理

554
来自专栏施炯的IoT开发专栏

Windows 10 IoT Serials 1 - 针对Minnow Board MAX的Windows 10 IoT开发环境搭建

目前,微软针对Windows IoT计划支持的硬件包括树莓派2,Minnow Board MAX 和Galileo (Gen 1和Gen 2)。其中,Galil...

1726
来自专栏潇涧技术专栏

Gradle Plugin for Android Development User Guide 2

Gradle Plugin for Android Development User Guide (2)

551
来自专栏施炯的IoT开发专栏

Windows 10 IoT Serials 11 – 如何设置微软认知服务中EndPoint

842
来自专栏醉梦轩

Ubuntu部署OpenVPN服务

2124
来自专栏安恒信息

微软2018年3月补丁更新的安全漏洞预警

1.漏洞公告 2018年3月13日,微软发布了本月安全更新补丁,其中包含一个CredSSP远程代码执行漏洞的补丁更新,对应CVE编号:CVE-2018-0886...

6258
来自专栏Echo is learning

谷歌、腾讯、百度相应API批量获取地理位置坐标信息及其优缺点

2157
来自专栏乐沙弥的世界

不可或缺的 sendEmail

    还在为Linux下没有便捷的邮件程序苦恼,还在为复杂的邮件服务器架设Google N多网页? 对于小型,便捷的Linux下命令行邮件程序,sendEma...

542
来自专栏hotqin888的专栏

golang-fullcalendar拖曳drop、resize的坑

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/hotqin888/article/det...

541

扫描关注云+社区