在VB编程中，交换两个数的位置可以通过多种方法实现。以下是几种常见的方法：
使用临时变量
```vb
Dim a As Integer, b As Integer
Dim temp As Integer
temp = a
a = b
b = temp
```
不使用临时变量（加法和减法）
```vb
Dim a As Integer, b As Integer
a = a + b
b = a - b
a = a - b
```
不使用临时变量（异或运算）
```vb
Dim a As Integer, b As Integer
a = a XOR b
b = a XOR b
a = a XOR b
```
使用数组和循环（适用于交换数组中的元素）：
```vb
Dim arr() As Integer
arr = Array(1, 2, 3, 4, 5)
' 交换第1个和第3个元素
Dim i As Integer
i = arr(1)
arr(1) = arr(3)
arr(3) = i
' 或者使用循环
For i = 1 To UBound(arr)
If i Mod 2 = 1 Then
temp = arr(i)
arr(i) = arr(i + 1)
arr(i + 1) = temp
End If
Next i
```
使用命令按钮和输入框（适用于用户输入两个数并交换）：
```vb
Dim x As Integer, y As Integer
x = Val(InputBox("输入第一个数: "))
y = Val(InputBox("输入第二个数: "))
' 交换x和y的值
Dim temp As Integer
temp = x
x = y
y = temp
' 显示结果
MsgBox "交换后的结果: x = " & x & ", y = " & y
```
根据你的具体需求和编程环境，可以选择最适合的方法来实现两个数的交换。