Question

VB编程文本框控件中如何不借助第三个变量实现两个文本框里的数据交换？

使用第三个变量的程序如下，如何不使用C？
Private Sub Command1_Click()
Dim C As Integer
C = Text1.Text
Text1.Text = Text2.Text
Text2.Text = C

End Sub

Answer 1

Private Sub Command1_Click()
Text1.Text = Text1.Text & Text2.Text
Text2.Text = Mid(Text1.Text, 1, Len(Text1.Text) - Len(Text2.Text))
Text1.Text = Mid(Text1.Text, Len(Text1.Text) - Len(Text2.Text), Len(Text1.Text))
End Sub

追问

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Text1
b = Text2
a = a + b
b = a - b
a = a - b
Text1 = a
Text2 = b
End Sub
这样。