问题
填空题
窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后,如果单击命令按钮,则可打开磁盘文件c:\test.txt,并将文件中的内容(多行文本) 显示在文本框中。下面是实现此功能的程序,请填空。
Private Sub Command1_Click()
Text1=""
Number=FreeFile
Open "c:\test.txt" For Input As Number
Do While NotEOF( [14] )
Line Input #Number,s
Text1.Text=Text1.Text+ [15] +Chr(13)+Chr(10)
Loop
Close Number
End Sub
答案
参考答案:[14] Number[15] s
解析:
EOF函数的格式为EOF(文件号),用于测试文件指针是否到达文件末尾,因此第14个空应填文件号Number; Line函数返回文件中一行的数据,要将文件中的内容在文本框中显示,就要用Text1.Text连接上。再接回车键换行,所以第15个空应该填文件中的内容s。