填空题 在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的Muhiline属性设置为True,然后编写如下的事件过程:
Private Sub Form_Click( )
Open“d:/test/smText1.txt"For lnput As#1
Do While Not 【14】
Line lnput#1,aspect$
whole$=wholes+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close#1
Open“d:/test/smtext2.txt"For Output As #1
Print #1, 【15】
Close#1
End Sub
上述程序的功能是,把磁盘文件,mText1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

  • 1、
【正确答案】 1、{{*HTML*}}[14] EOF(1)
[15]Text1.Text    
【答案解析】[解析] EOF( )函数返回一个表示文件指针是否到达文件末尾的值。当到文件末尾时, EOF( )函数返回True,否则返回FMse。所以[14]为EOF(1),表示如果没有到达文件1的末尾。Print#1,Text1.Text表示把整个文本框Text1的内容一次性的写入文件。