vb中交换两个变量的值

来源：百度知道 编辑：UC知道 时间：2024/05/22 15:48:16
不要用中间值的方法，帮忙解答一下，谢谢
实在不好意思，我是个vb的初学者，只看懂了第一条的答案而且其中的Debug.是什么意思啊。去掉了就能运行了，帮忙解答下，谢谢！

Dim a As Integer, b As Integer
a = 1
b = 2
a = a + b
b = a - b
a = a - b
Debug.Print a, b

Imports System
Module Tester

Sub Main()
Dim a, b As Integer
a = 1
b = 2
Swap1(a, b)
Console.WriteLine("{0} {1}", a, b)
Swap2(a, b)
Console.WriteLine("{0} {1}", a, b)
End Sub

' 方法一
Sub Swap1(ByRef lhs As Integer, ByRef rhs As Integer)
lhs -= rhs
rhs += lhs
lhs = rhs - lhs
End Sub

' 方法2
Sub Swap2(ByRef lhs As Integer, ByRef rhs As Integer)
lhs = lhs Xor rhs
rhs = rhs Xor lhs
lhs = lhs Xor rhs
End Sub

End Module