在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的Multiline属性设置为True，然后编写如下的事件过程，请在空白处填上适当的内容，将程序补充完整。
Private Sub Form_Click()
Open”d:\test\smtext1.txt" For input As#1
Do While Not EOF()
Line Input#1，aspect$
whole $=whole $+aspect $+Chr $(13)+Chr $(10)
Loop Text1.text=whole$
Close#1
Open "d:\test\smtext2.txt" For output As#1
Print#1， (15)
Close #1
End Sub