循环程序-在其内部调用模块是一个坏主意吗？

Question

我有一个想要持续运行的程序。按照我现在的编码方式，一旦它到达其函数的末尾，它就会调用自身；它实际上从未到达其“End Sub”行。

Sub run

    *Run all code here*

    Call run

End Sub

人们对此提出了疑问，担心该程序永远没有机会“弹出”所有“推”到它上面的东西。基本上，一段时间后不断的自调用会使cpu过载。建议的替代方案是有一个永远不会结束的 while 循环，本质上

Sub run

While program_run = true then

    *Run all code here* 

Loop

End Sub

只是永远不会使 program_run = false。

1. 我在“外行-y”中措辞了许多内容，因为我不确定正确的技术术语。

2. 我熟悉列表和数据结构上下文中的术语“pop”和“push”，但仅限于基础水平；我认为这些具体术语不适用于这种情况，但我就是这么说的。 （该程序下载 .csv 并执行一系列数据操作，即格式化、复制/粘贴、上传到 MySQL 等）

3. 这也与确保硬件不会稳定过载有关，因此如果这在超级用户中更合适，我理解。

问题：

1. 对程序/硬件将“过载”的担忧是否合理？

2. 自调用模块和永不结束的 while 循环之间有什么实际区别吗？

感谢您提前提供的任何帮助！

Answer 1

1. 对程序/硬件会“超载”的担忧是否合理？

取决于你所说的“超载”是什么意思。根据您的具体代码，这可能会导致一个处理器连续运行并因此升温。但计算机通常被设计为能够处理这个问题，只要不阻碍其通风，就不会造成问题。不过，它可能会很快耗尽笔记本电脑的电池。所有这些实际上取决于您的代码到底在做什么。

至于“程序重载”，我不知道这意味着什么，但它确实很好地引出了你的第二个问题：

2.自调用模块和永不结束的 while 循环之间有任何实际区别吗？

是的，有区别。既然您在 stackoverflow.com 上询问这个问题，您就会有兴趣知道您的第一段代码（自调用过程）实际上会导致 堆栈溢出。您没有“使 CPU 过载”，而是耗尽了调用堆栈上的可用内存。这个内存量不是无限的，但是每次您无限次调用 run 过程时，都会占用更多的内存，所以是的，在某些时候您会用完并得到一个堆栈溢出。

至于你的第二段代码，它不会编译。 （While ... then ... Loop 在 VBA 中不存在。您混合了三种不同类型的语法。）

如果您绝对确定希望程序运行到最后时间（就您的计算机而言），那么您可以像这样进行无限循环：

Sub run()
    Do
        '*Run all code here*
    Loop
End Sub

但是您不太可能真正希望代码运行到时间结束。我会问自己一个合理的最终条件是什么，然后实施它。

Sub run()
    Dim endConditionReached As Boolean
    endConditionReached = False
    Do While Not endConditionReached 
        '*Run all code here*
        ' code sets endConditionReached to True when appropriate
    Loop
End Sub

Answer 2

如果使用自调用函数，则每次调用自身时，都会将一个新函数添加到堆栈中。
一种简单的检查方法是在调试模式 (F8) 下运行下面的代码，并在几次调用后检查堆栈（查看/堆栈或 CTRL + L）：您将看到堆栈有对该过程的多次调用。

Sub test()

  test

End Sub

如果您只是运行该代码（F5），您很快就会收到“堆栈空间不足”错误（在我的机器上一两秒后）。

如果您使用无限循环，假设您的循环没有任何内存泄漏，则不应出现任何溢出问题。但这不是很干净，因为您需要“杀死”该程序才能停止它。

另一种选择（取决于您想要实现的目标）是使用一种调度程序，该调度程序每 x 秒运行一次循环，并且可以根据需要停止。