在编程的一些算法中，交换函数虽然不起眼，但也是一个不可或缺的组成部分。少了它，很多算法就难以为继。交换函数定义就是交换两个变量的值。有一点编程基础的人都能很快速的写出代码来。
Public Shared Sub SwapNumber(ByRef N1 As Integer, ByRef N2 As Integer)
Dim I As Integer
I=N1
N1=N2
N2=I
End Sub
这一段代码只写了Integer型的函数，其它类型的类似。
但是，这个函数效率不高，额外的利用一个中间变量I。
有人，利用Xor运算的回复性，写了下面一段代码来
Public Shared Sub SwapNumber(ByRef N1 As Integer, ByRef N2 As Integer)
N1 = N1 Xor N2
N2 = N1 Xor N2
N1 = N1 Xor N2
End Sub
测试一下这个函数
N=6
M=7
SwapNumber(N,M)
嗯，结果满意。N和M的值的确交换了。
但是这个函数有一个陷阱，不注意的话，会产生一个严重的逻辑错误。
用下面的测试
N=6
SwapNumber(N,N)
从需要来看。N和N交换，N的值应该还是6
可是实际的结果令人瞠目，N=0。为何？
关键是ByRef这个关键字，他引用的是变量的地址。在调用SwapNumber(N,N)这个函数的时候，N1和N2都引用N这个变量。当N1或者N2值发生改变的时候，N1、N2、N这三个变量是一起变化的。那么在第一行的时候，N1 = N1 Xor N2。实际执行的是N1=6 Xor 6=0，同时，N2的值也发生了变化，N2=0，因为N1和N2指向同一个变量。那后面就很好的理解了。最后退出函数的时候，N就是N1就是N2等于0
怎么解决？在代码中加一行，遇到值相等的时候，就直接退出函数。因为这个时候，换与不换是一样的。
Public Shared Sub SwapNumber(ByRef N1 As Integer, ByRef N2 As Integer)
If N1 = N2 Then Exit Sub
N1 = N1 Xor N2
N2 = N1 Xor N2
N1 = N1 Xor N2
End Sub
在很多的书本与网页上讲到本算法的时候，都不会提到这个“陷阱”，那是因为在不同的编程语言中，这个陷阱是不一定出现的。我们看了一个算法，用自己的所熟悉的语言去实现它的时候，一定要做全方位的测试，要找到各个方面的陷阱，不要生搬硬套，以免产生严重的逻辑错误。
本文转自万仓一黍博客园博客，原文链接：http://www.cnblogs.com/grenet/archive/2009/12/15/1625059.html，如需转载请自行联系原作者
