[填空题] 在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form Click() Open "d:estsmtext1.txt" For Input As #1 Do While NotLine Input #1,aspectswhole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ Close #1 Open "d:estsmtext2.txt" For Output As #1 Print #1, ______ Close #1 End Sub 上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
参考解析:Text1.Text或 Text1 或 Form1.Text1.Text或 Form1.Text1 或 Me.Text1.Text或Me.Text1 本题考查文件操作。文件操作是考试难点,也是众多考生认为困难的内容。首先把磁盘文件smtext1.txt的内容读到内存,如何判断文件是否读取完成呢 EOF函数的功能就是当文件指针到达文件尾部时返回True,否则返回False,当EOF(文件号)可以判断是否读取完成。 Linelnput#语句的功能是从一个打开的顺序文件中,读出一行数据赋给一个aspect$变量,然后进行相应运算,Chr(13)+Chr(10)的功能是回车换行。最后将 whole$变量的值显示在文本框中,然后关闭#1文件。接下来就是如何把文本框中的内容存入文件中,这里使用Open "d:estsmtext2.txt" ForOutput As #1,该语句可以打开d:est目录下的名为smtext2.txt的文件,如果不存在,该语句将创建一个名为smtext2.txt的文件。文件的写入是由Print #语句实现,考生需要注意区分Print #语句与Write #语句的区别。