[填空题] 在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的Multiline属性设置为True，然后编写如下的事件过程，请在空白处填上适当的内容，将程序补充完整

[填空题] 在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的Multiline属性设置为True，然后编写如下的事件过程，请在空白处填上适当的内容，将程序补充完整。

Private Sub Form_Click()

Open”d:estsmtext1.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:estsmtext2.txt" For output As#1

Print#1， (15)

Close #1

End Sub