填空题
以下程序的功能是:把顺序文件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)。