[填空题] 在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private sub Form_Click() Open

[填空题] 在窗体上画一个文本框，其名称为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:＼test＼smtext2.txt"For Output As #1
Print #1， [15]
Close #1
End sub
运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

参考答案：

[13] EOF(1)； [14] Close #1； [15] Text1.Text或Text1

问题解析:

EOF函数用于测试文件指针是否到达文件末尾，它的格式是EOF(文件号)，因此第13个空应填“EOF(1)”，只要没有到达文件末尾，就一直执行循环内的语句；在对文件操作完毕之后，必须关闭文件，它的格式是Close #文件号，所以第14个空应填“Close #1”；根据题意要求输出smtext1的内容，而根据前面的语句，smtext1的内容已经赋值给了Text1.Text，所以第15空应填“Text1.Text”或“Text1”。