在VB编程中，交换两个数的位置可以通过多种方法实现。以下是几种常见的方法：
方法一：使用中间变量
这是最简单直接的方法，通过引入一个中间变量来存储其中一个数的值，然后进行交换。
```vb
Dim a As Long, b As Long, temp As Long
a = 10
b = 20
temp = a
a = b
b = temp
MsgBox "互换前： a=" & a & ", b=" & b
```
方法二：使用加减法
这种方法适用于数值型数据，通过加减法来交换两个数的值，不需要引入中间变量。
```vb
Dim a As Long, b As Long
a = 10
b = 20
a = a + b
b = a - b
a = a - b
MsgBox "互换前： a=" & a & ", b=" & b
```
方法三：使用异或运算
这种方法也适用于数值型数据，通过异或运算来交换两个数的值，同样不需要引入中间变量。
```vb
Dim a As Long, b As Long
a = 10
b = 20
a = a Xor b
b = a Xor b
a = a Xor b
MsgBox "互换前： a=" & a & ", b=" & b
```
方法四：使用数组和指针
这种方法适用于需要交换数组中对应位置元素的情况，通过使用`VarPtrArray`和`CopyMemory`函数来实现。
```vb
Private Declare Function VarPtrArray Lib "msvbvm50" Alias "VarPtr" （Ptr（） As Any） As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" （lpDst As Any, lpSrc As Any, ByVal ByteLength As Long）
Sub Swap（a（） As Long, b（） As Long）
Dim SafeA As Long, SafeB As Long
Dim AddressA As Long, AddressB As Long
CopyMemory SafeA, ByVal VarPtrArray（a）, 4 ' 得到指向A数组SAFEARRAY指针的指针
CopyMemory SafeB, ByVal VarPtrArray（b）, 4 ' 得到指向B数组SAFEARRAY指针的指针
SafeA = SafeA + 12 ' 偏移12个字节为指向真数组的指针
SafeB = SafeB + 12
CopyMemory AddressA, ByVal SafeA, 4 ' 复制a数组的值
CopyMemory AddressB, ByVal SafeB, 4 ' 复制b数组的值
CopyMemory SafeA, ByVal AddressB, 4 ' 将b数组的值复制回a数组
CopyMemory SafeB, ByVal AddressA, 4 ' 将a数组的值复制回b数组
End Sub
Dim arr（9） As Long
arr（0） = 1
arr（1） = 2
arr（2） = 3
arr（3） = 4
arr（4） = 5
arr（5） = 6
arr（6） = 7
arr（7） = 8
arr（8） = 9
Swap arr, arr
MsgBox "互换后： " & Join（arr, ", "）
```
方法五：使用函数
可以定义一个函数来交换两个数的值，通过引用传递参数来实现。
```vb
Function Xch（ByRef x As Long, ByRef y As Long） As Long
Dim temp As Long
temp = x
x = y
y = temp
Xch = x
End Function
Dim a As Long, b As Long
a = 10
b = 20
a = Xch（a, b）
b = Xch（a, b）
MsgBox "互换前： a=" & a & ", b=" & b
```
以上方法可以根据具体需求和场景选择使用。对于简单的数值交换，方法一和方法二是最常用的。对于复杂的数组交换，方法四和方法五更为适用。