我写的代码:
Private Sub Form_Click()
'请求用户给a和b输入值
Dim a As String,b As String
a = InputBox("输入a的值","输入信息")
b = InputBox("输入b的值","输入信息")
'交换a和b的值
Dim c As String
c = a
a = b
b = c
'在窗体上输出变量交换前后的值
Print "交换后a的值为:" & a
Print "交换后b的值为:" & b
End Sub