问题 填空题

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

答案

参考答案:(7)Input (8)Not EOF(1)

解析: Open语句的格式为:“Open文件名for方式As [#]文件号”,本题中“方式”应选择顺序输入,即为Input,所以第[7]空处应填写Input;为了测试顺序文件读取是否达到文件末尾,需要在第[8]空处填写Not EOF(1)。

单项选择题 B1型题
多项选择题