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

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

[填空题] 在名称为Forml的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form Click()Open"d:estsmText1.txt"For Input As #1Do While Not（）Line Input #1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close #1Open"d:estsmtext2.txt"For Output As #1Print #1,（）Close #1End Sub上述程序的功能是，把磁盘文件smText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

正确答案：

EOF(1)；Text1.Text

参考解析：

[评析] EOF函数是判断Random或顺序Input打开的文件是否已到结尾。本题中首先是要读出"d:estsmText1.txt"中的内容，使用DoWhile语句宋循环读出内容并赋值给变量wholes，而结束循环的条件是到达文件的尾部，所以第一空应该填EOF(1)。读完以后把内容赋值给Text1文本框。程序的第二部分就是向文件 "d:estsmtext2.txt"写内容，题目要求把文本框中的内容写入文件smtext2.txt，所以第二空填Text1.Text。