Dim a As Byte = 3, b As Byte = 7
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = "a=" & a & " ,b=" & b
a = b - a
b -= a
a += b
TextBox2.Text = "a=" & a & " ,b=" & b
End Sub
运行结果: