. Private Sub Command1_Click()
Dim a%, b%
a = 50: b = 100
Print "调用前", "A="; a, "B="; b
swap a, b
Print "调用后"; "A="; a, "B="; b
End Sub
Private Sub swap(ByVal x%, y%)
Dim t%
t = x: x = y: y = t
End Sub
结果是:调用前A=50,B=100
调用后A=50,B=50
结果为什么是这样的?形参、实参怎么回事?值传递、地址传递怎么回事?
|