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