问题 填空题

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

答案

参考答案:EOF(1)
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:\test\smtext2.txt" ForOutput As #1,该语句可以打开d:\test\目录下的名为smtext2.txt的文件,如果不存在,该语句将创建一个名为smtext2.txt的文件。文件的写入是由Print #语句实现,考生需要注意区分Print #语句与Write #语句的区别。

单项选择题 A1/A2型题
单项选择题