我一直使用ByRef
成功,直到现在。我需要一个函数来Double
从类对象修改 a 。为了说明,请考虑以下程序。
Class1.cls:
Public d As Double
Sub Test()
Dim c As Class1, d As Double
Set c = New Class1
c.d = 5
d = 5
ChangeVar c.d
ChangeVar d
Debug.Print c.d
Debug.Print d
End Sub
Sub ChangeVar(ByRef d As Double)
d = 10
End Sub
令我惊讶的是,上面的示例将输出
5
10
有人吗?