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

那完全是传地址的问题..认真看看基础吧..

传址是传送给形参实参的地址，在函数中对其操作都变成了对实参的操作了。。
而传值只是把实参的值复制给形参，函数经过运算再返回一个值或执行一个操作

至于那些值的变化，LZ去研究研究吧。。。自己思考好一点

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

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

那不只是形参和实参的问题..
最主要是你不了解参数传值和传地址方式的问题...请看教程..

把我都差点搞糊涂了,还以为是C语言呢?

怎么看..也不像C语言..

在定义变量前加ByVal就是传值,在SWAP1中,X是传值,Y是传址