未分类题

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