输入时，在另一文本框中边输边显示代码： Private Sub Text1_Change() Call text6xs 'Text6.Text = Label1.Caption & " " & Text1.Text End Sub Private Sub Text2_Change() Call text6xs End Sub Private Sub Text3_Change() Call text6xs End Sub Private Sub Text4_Change() Call text6