将a与b的值进行变换
Private Sub Command1_Click()
Cls
Dim a As Integer, b As Integer, c As Integer
a = 10: b = 20
Print "a=" & a
Print "b=" & b
c = a
a = b
b = c
Print "a=" & a
Print "b=" & b
End Sub
将a与b的值进行变换
Private Sub Command1_Click()
Cls
Dim a As Integer, b As Integer, c As Integer
a = 10: b = 20
Print "a=" & a
Print "b=" & b
c = a
a = b
b = c
Print "a=" & a
Print "b=" & b
End Sub