Private Sub C1_Click() Dim s As String s = Text1.Text Text1.Text = C2.Caption C2.Caption = sEnd Sub Private Sub Form_Load() C1.Caption = "交换内容" C2.Caption = "按钮C2" Text1.Text = "文本框内容"End Sub
代码及注释如下: Private Sub C1_Click() x = Text1.Text'先用一个变量x暂存text1中的文本 Text1.Text = C2.Caption'然后将C2的内容,赋予text1中 C2.Caption = x'将x的值,也就是原来text1中的内容,赋予C2 End Sub本回答被网友采纳