调用过程时,为何不加 call ,则引用传递的变量值不会传回来?
调用过程时,为何不加 call ,则引用传递的变量值不会传回来?----------------------------------------------------
变量是引用传递,正常情况下,变量值的改变可以被传回来,但是如果不加 call 的话,这个值竟然传不回来,以前没有这种问题,今天遇到了。
窗体代码:
Option Explicit
Dim cls1 As New Class1
Dim x As Double
Private Sub Form_Load()
x = 199.99
MsgBox x
'几下两句为何执行结果不同
'cls1.clsprog (x) '此时x的值不会传回来
Call cls1.clsprog(x) '此时x的值会正常传回来
MsgBox x
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set cls1 = Nothing
End Sub
类代码:
Option Explicit
Dim cls1 As New Class1
Dim x As Double
Private Sub Form_Load()
x = 199.99
MsgBox x
'几下两句为何执行结果不同
'cls1.clsprog (x) '此时x的值不会传回来
Call cls1.clsprog(x) '此时x的值会正常传回来
MsgBox x
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set cls1 = Nothing
End Sub