Question

VB 将ab两个变量的值互换

要求：将a、b两个变量的值互相交换，并在窗体上输出变量交换前后的值。程序运行后，单击窗体时，一次弹出两个输入信息对话框。

Answer 1

我写的代码:

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

Answer 2

Private Sub Form_Click()
Dim a As String, b As String, c As String
a = InputBox("请输入a的值", "请输入")
b = InputBox("请输入b的值", "请输入")
c = a
a = b
b = c
MsgBox "交换后a的值为：" & a & ", 交换后b的值为：" & b
End Sub

Answer 3

Private Sub Form_Click()
Dim a%, b%, t%
a = InputBox("请输入a：")
Print "a="; a
b = InputBox("请输入b：")
Print "b="; b

Print "交换后"

t = a
a = b
b = t
Print "a="; a
Print "b="; b

End Sub

Answer 4

Private Sub Form_click()
Dim temp As Double
a = InputBox("a")
b = InputBox("b")
Print "改变前的值：" & "a=" & a & ":b=" & b
temp = b
b = a
a = temp
Print "改变后的值：" & "a=" & a & ":b=" & b
End Sub

Answer 5

temp=a:a=b:b=temp