下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存,并在文本框Textl中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text="" Open "smt

admin2009-08-15  21

问题 下列程序的功能是把顺序文件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 , #2 , NOT EOF(2)

解析 第[1]空考查的考点是有关文件的打开的。打开顺序文件的基本格式为:
Open FileName For Mode As #FileNumber。
其中,FileName表示要打开的文件的路径;Mode为文件打开模式:OutPut用于输出、Append用于追加写入、Input用于读取: FileNumber为打开文件时指定的句柄(文件号)。
第[2]空中由于要读取数据,所以(1)空应为ForInput;在下面出现了在2号文件中读取的语句,所以[2]空应为#2。
第[3]空考查的考点是有关文件结束的。EOF函数用于判断文件指针是否已到文件结尾。对于本题来说,要求把顺序文件中所有内容读入内存,应该只有文件结束才终止,所以只要没有结束就继续循环,此处应填NOTEOF(2)。
转载请注明原文地址:https://jikaoti.com/ti/6oq0FFFM
0

最新回复(0)