[填空题] 下面的程序执行时，将把当前目录上的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text="" Open ".smtext1.txt"As#1 Do While Input #1,inData Text1.Text=Text1.Text & inData Loop

参考答案：

Input；(NotEOF(1))

● 参考解析

本题考查文件的操作。程序首先要以读文件的方式(Input)打开文件，题中说明这是个顺序文件，那么如果文件指针没有到文件尾(EOF(1)的值为False)，就要从文件中读出数据，所以循环条件应以是否到文件尾为依据，判断是否继续循环。

相关题目:

推荐题目