交换函数的陷阱——VB2005

　　在编程的一些算法中，交换函数虽然不起眼，但也是一个不可或缺的组成部分。少了它，很多算法就难以为继。交换函数定义就是交换两个变量的值。有一点编程基础的人都能很快速的写出代码来。

　　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

　　在很多的书本与网页上讲到本算法的时候，都不会提到这个“陷阱”，那是因为在不同的编程语言中，这个陷阱是不一定出现的。我们看了一个算法，用自己的所熟悉的语言去实现它的时候，一定要做全方位的测试，要找到各个方面的陷阱，不要生搬硬套，以免产生严重的逻辑错误。