在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程: Private Sub Command1_Click() Dim inData As String Text1.Text="" Open"d:\myfil

admin2009-03-16  29

问题 在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open"d:\myfilE.txt" For【  】As#1
Do While【  】
Input #1,inData
Text1.Text=Text1.Text+inData
Loop
Close#1
End Sub
程序的功能是,打开D盘根目录下的文本文件myfilE.txt,读取它的全部内容并显示在文本框中。请填空。

选项

答案Input , Not EOF(1)

解析 Open语句使用以下语法:Open pathname For [Input|Output|Append] As filenumber [Len=buffersize]
当打开顺序文件作为Input时,该文件必须已经存在,否则会产生一个错误。 EOF()函数判断文件是否结束。该程序对指定路径下的文件进行Input操作,由于是遍历整个文件,则最后的EOF(1)必为真。
转载请注明原文地址:https://kaotiyun.com/show/sk1p777K
0

最新回复(0)