Excel VBA - 使用没有返回的 GoSub

Question

我有一种情况，我想在子例程中使用 GoSub，并在 某些 情况下返回，但在其他情况下，我希望 不 让它返回。这将是一个很大的 For Loop 和 GoSub without Return 可能会发生数百次。如果我不返回，这会在内存中累积并导致任何问题吗？

我想我的问题归结为：GoSub 堆栈吗？大量未退回的 GoSub 是否会导致问题？

如果它确实堆栈，我可以更改代码以在我不想返回的情况下使用 GoTo，但为简单起见，我宁愿不这样做。

还要提前感谢您没有向我讲授 GoTo/GoSub 不是最佳实践 :)

Answer 1

正如许多其他人所说：不要这样做。我现在（以谋生为生）编程已经 30 年了，从来不需要使用 GoSub/Return，除非在编程语言不提供任何子例程时作为替代。

也就是说 - 我很好奇 VBA 如何处理这个问题。第一件事：我假设必须有一种堆栈。您可以在一个例程中有多个 GoSub/Return 并且处理正确：

Sub testSub1()
    Call StrangeRoutine1
End Sub

Sub StrangeRoutine1()

    GoSub L1
    Exit Sub

L1:
    Debug.Print "Strange1 - L1a"
    GoSub L2
    Debug.Print "Strange1 - L1b"
    Return

L2:
    Debug.Print "Strange1 - L2a"
    Return
End Sub

这个打印：

Strange1 - L1a
Strange1 - L2a
Strange1 - L1b

所以return 语句在正确的GoSub 之后跳转——这肯定是用一种堆栈处理的。

但是，似乎一旦离开子例程，该堆栈就会被清除。以下例程有GoSub，但没有Return。所以它在“堆栈”上留下了一个开放的GoSub。但是，当第二次调用并发出没有GoSub 的Return 时，它会引发运行时错误3“Return without GoSub`。

Dim count As Long

Sub testSub2()
    For count = 1 To 2
        Call StrangeRoutine2
    Next
End Sub


Sub StrangeRoutine2()
    If count > 1 Then Return
    GoSub L1
    Exit Sub

L1:
    Debug.Print "Strange2 - L1"
End Sub

P.S.：我有没有提到它：不要这样做！

Answer 2

在 VBE 中查看堆栈的快捷键是 Ctrl+E。如您所见，它不会堆叠：

Sub GosubDemo()

    GoSub MyRoutine
    Debug.Print "Line before Exiting"
    Exit Sub

GoSomeWhereElso:
    Debug.Print "SomewhereElso I am "
    Return

MyRoutine:
    Debug.Print "My routine"
    GoSub GoSomeWhereElso
    Return

End Sub

但是，不要在 VBA 中使用 GoSub 或 GoTo。这被认为是一种非常糟糕的做法。 GoTo 可用于错误处理，如 On Error GoTo ErrorHandler。

• GoSub ... Return MSDN
• Dijkstra - GoTo considered harmful