Function f(x As Integer)
Print "2 x", VarPtr(x), x
x = 5
Print "3 x", VarPtr(x), x
Print "4 f", VarPtr(f), f
f = x
Print "5 f", VarPtr(f), f
End Function
Private Sub Command1_Click()
Dim a As Integer
Print "1 a", VarPtr(a), a
Call f(a)
'或者 temp=f(a)
【问题出在这里,函数调用问题,所以地址值没有回传,具体的看打印结果】
Print "6 a", VarPtr(a), a
End Sub
call f(a) 或者 temp=f(a) 地址正确传送
1 a
1635046
0
2 x
1635046
0
3 x
1635046
5
4 f
1634856
5 f
1634856
5
6 a
1635046
5
f(a) 地址没有传送【调用参数不正确,地址没有传送】
1 a
1635046
0
2 x
1635038
0
3 x
1635038
5
4 f
1634852
5 f
1634852
5
6 a
1635046
0
[此贴子已经被作者于2017-12-11 22:13编辑过]