[填空题] 下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。 Private Sub Command1_Click() Dim inDa

[填空题] 下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text="" Open "smtext1.txt" 【13】 As 【14】 Do While 【15】 Input #2，inDataText1.Text=Text1.Text & inData Loop Close #2End Sub

参考答案：

[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)。