填空题

在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click()
Open "d:\test\smtext1.txt" For Input As #1
Do While Not (13)
Line Input #1, aspect $
whole $=whole $+aspect $+Chr $ (13)+Chr $ (10)
Loop
Text1.Text=whole $
(14)
Open "d:\text\smtext2.txt" For Output As #1
Print #1, (15)
Close #1
End Sub
运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。