当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的Muhiline属性设置为True,然后编写如下的事件过程: Private Sub Form_Click( ) Open“d:estsmText1.txt"For lnput As#1 Do While Not 【14】 Line lnput#1,aspect$whole$=wholes+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole

  

参考答案:

[14]EOF(1)

  参考解析

[15]Text1.TextEOF()函数返回一个表示文件指针是否到达文件末尾的值。当到文件末尾时,EOF()函数返回True,否则返回FMse。所以[14]为EOF(1),表示如果没有到达文件1的末尾。Print#1,Text1.Text表示把整个文本框Text1的内容一次性的写入文件。

微信端