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

24 查阅

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

参考答案:

EOF(A) , TextA.Text

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

计算机考试