问题
填空题
下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open "smtext1.txt" （） As （）
Do While （）
Input #2，inData
Text1.Text=Text1.Text & inData
Loop
Close #2
End Sub
答案
参考答案：For Input, #B, NOT EOF(B)
解析：
第一空考查的考点是有关文件的打开的。打开顺序文件的基本格式为： Open FileName For Mode As #FileNumber。 其中，FileName表示要打开的文件的路径；Mode为文件打开模式：OutPut用于输出、Append用于追加写入、Input用于读取： FileNumber为打开文件时指定的句柄(文件号)。 第二空中由于要读取数据，所以(13)空应为ForInput；在下面出现了在2号文件中读取的语句，所以[14]空应为#2。 第三空考查的考点是有关文件结束的。EOF函数用于判断文件指针是否已到文件结尾。对于本题来说，要求把顺序文件中所有内容读入内存，应该只有文件结束才终止，所以只要没有结束就继续循环，此处应填NOTEOF(2)。