输入时，在另一文本框中边输边显示代码：PrivateSubText1_Change()Calltext6xs'Text6.Text=Label1.Caption&""&Text1.TextEndSubPrivateSubText2_Change()Calltext6xsEndSubPrivateSubText3_Change()Calltext6xsEndSubPrivateSubText4_Change()Calltext6xsEndSubPrivateSubText5_Change()