使用 VB6 + Windows 7 传递 ByRef 的参数

Question

我已经使用 VB6 很多年了，但我遇到了一些相当奇怪的事情，我自己无法确认这个结果。所以我想知道以下代码的输出是否会是

7

7

或

7

6

代码如下：

Option Explicit

Private Sub cmdOk_Click()
Dim V As Integer
V = 6
Call AddV(V)
Print V

End Sub

Sub AddV(ByRef P As Integer)
P = P + 1
Print P

End Sub

在我的系统 (Windows XP + VB6) 上，这可以正常工作。所以我得到了第一个输出。但是，我在 Windows 7 + VB6 上看到过相同的程序，但输出不一样。

有人能解释一下为什么会这样吗？然而，同样的事情在 VB 2008 + Windows 7 上运行得很好。我认为按值调用和按引用调用是任何语言/操作系统中的标准参数传递技术。

谢谢！

编辑：cmdOK 是一个命令按钮。

Answer 1

V = 6
Call AddV(V)

您不会在这段代码中观察到这种行为。这也与 Windows 版本无关，它与 VB6 代码执行无关。但是，对于您的观察，有一个简单的解释。您的代码可能如下所示：

V = 6
AddV (V)

换句话说，没有调用关键字。现在在 VB6 中发生了一些非常可怕的事情。括号不再意味着同样的事情。只有在调用函数时才使用括号来调用 Sub。相反，它们成为 表达式 的一部分，与您在编写 Print 4 * (5 + 6) 时使用的括号相同。它会生成 V 值的副本。被调用的过程会更新该副本，它不再影响 V 变量的值。

虽然这是故意的，但该功能是一个主要的错误工厂，并没有被带到 VB.NET 中。现在，括号在过程调用中的含义始终相同，无论被调用的过程是 Sub 还是 Function，都可以使用括号。