(3)编写代码如下: Private Sub commandl click t=Label. Caption Label3. Caption= Label4 Caption Label. Caption=t End sub 2021/2/22 162021/2/22 16 (3)编写代码如下: Private Sub Command1_Click() t = Label3.Caption Label3.Caption = Label4.Caption Label4.Caption = t End Sub