在vb6中有无可以直接交换两个变量的函数
编号：QA001615
建立日期: 1999年8月29日 最后修改日期：2001年11月18日
所属类别：
gzmikey:
vb6
win98
我想问一下在vb6中有无可以直接交换两个变量的函数？
回答:
没有现成的函数，可以用下面这个，它可以交换任意数据类型。
Public Sub Swap(a As Variant, b As Variant)
Dim c As Variant
c = a
a = b
b = c
End Sub
丝雨的意见：
可以使用逻辑运算:
sub swap(a,b)
a=a xor b
b=a xor b
a=a xor b
end sub
主持人注：这个方法很巧妙，不过只能适用于整数，而不能用于其他数值类型和字符串类型，而前一种可以适用任意简单数据类型。
zn的意见：
可以使用：
a=a+b
b=a-b
a=a-b
主持人注：这个方法也很巧妙，常出现在一些中小学程序竞赛中，不过只能适用于数值类型，而不能用于其他和字符串类型，而第一种可以适用任意简单数据类型。
此问题由李海回答。
| |
|
|
| |
|
|
