如下事件过程: Private Sub Command1_Click() Open "C:\smptxt1.txt" For Input As #1 Do While Not Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr(13) + Chr(10) Loop Text1.Text = whole$ Close #1 Open "C:\smptxt2.txt" For Output As #1 Print #1, whole$ Close #1 End Sub 上述程序的功能是:把磁盘上文件smptxt1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容复制到磁盘文件smptxt2.txt中。请填空将程序补充完整。