Public Sub swap1(ByVal x As Integer, 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 Command1_Click()
Dim a As Integer, 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=10？很是奇怪，麻烦大侠帮忙解释一下
形参里面x=10，y=20
为什么出来后就成A1=10；B1=10

实在是想不通，我是在基础教程那本书里面看到这个程序的，书里面没有过多写二者的区别，有一个程序，也说是让思考一下，看哪个能实现，也没给结果，我看着2个似乎都能实现交换，想证实一下，所以重新敲了一遍，但是用传值时却出现都是10
转不过来，已经想了很久了，所以才发上来问问？？？？

是我问得不清楚？
怎么没人回答啊？？？？
形参实参是知道的，但是不知道调用后返回的知是怎么一回事？
麻烦哪位大侠给解说一下！！！
不胜感激！！！

怪不得斑竹姐姐老让我看教程
我那里写错，少写了byval
哭死
再去看看

程序是我凭记忆自己试着写的，昨天又拿书对照了一下（没发现），只是发现print那里有一点不一样，但是不影响
没想到，还好只是为了学习，这样也好，最起码能记得时间长一点
谢谢楼上和斑竹