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

  • 1、
【正确答案】 1、(12)For Input (13)#2 (14)Not EOF(2)    
【答案解析】[解析] Open语句打开顺序文件的格式为:Open FileName For Mode As #FileNumber。其中,FileName表示要打开文件的路径,Mode表示打开模式:Output用于输出,Append用于追加写入,Input用于读取,FileNumber为打开文件时指定的文件号。
本题要求打开文件进行读取操作,所以第[12]空应填写For Input,As后的文件号正是后续读取语句需要用到的文件号,从循环体内的读取语句"Input #2, inData"可知,打开文件时的文件号应设置为#2,以保证程序的前后一致,所以第[13]空应填写#2。
打开文件后,文件指针指向文件的开始位置,只要文件指针还没有到达文件的结尾都应该继续读取,直到读完文件内所有的内容为止。所以第[14]空应表达:“文件指针还没有到达结尾”这一条件,即Not EOF(2)。