Question

vb6.0 关于传值传址

Public Sub swap1(ByVal x As Integer, ByVal y As Integer) '传值
Dim t As Integer
t = x: x = y: y = t
End Sub

Public Sub swap2(x As Integer, y As Integer) '传址
Dim t As Integer
t = x: x = y: y = t
End Sub

Private Sub Form_Click()
Dim a As Integer: Dim b As Integer

a = 10: b = 20
swap1 a, b
Print "A1="; a, "B1="; b
a = 10: b = 20
swap2 a, b
Print "A2="; a, "B2="; b
End Sub

为何最后出来的是

A1= 10 B1=20
A2=20 B2=10

可否请大神分析一下过程？ T A T

Answer 1

swap1是传值，所以它内部对x和y做任何修改都不会影响到a和b的值，所以swap1运行完毕后a和b的值是不变的；

而swap2是传址，所以x与a、y与b所指向的是同一个内存地址，换句话说就是它们实际上是同一个变量，所以函数内部对x和y所做的任何修改都会直接反映到a和b，因此swap2运行完毕后a和b的值就互相换过来了。

传值和传址的通俗理解：

1、传值是把参数的值传递给函数，也就是说，你把银行账户的余额告诉别人，别人是不会把你的钱取走的，他只不过是知道你有多少钱而已；

2、而传址则是把参数的内存地址传递给函数，也就相当于你把银行账户的帐号密码告诉别人了，这个会有什么结果就自己去想了。

Answer 2

Public Sub swap1(ByVal x As Integer, ByVal y As Integer)   '传值

传值，形参的改变不会影响到实参，你可以认为是实参复制了一份作为形参

Public Sub swap2(x As Integer, y As Integer)  '传址

传址，或称为传引用，是将实参本身作为形参传入，形参的改变实际就是实参的改变

追问

可否结合例子分析下过程？ T A T

追答

这还用分析过程吗，swap1和swap2代码完全相同，产生的结果不同就是因为参数的传递方式不同
这还要怎么分析