问题 填空题

下面的程序执行时,将把当前目录上的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open ".\smtext1.txt"______As#1
Do While______
Input #1,inData
Text1.Text=Text1.Text & inData
Loop
Close #1
End Sub

答案

参考答案:Input;(Not EOF(1))

解析: 本题考查文件的操作。程序首先要以读文件的方式(Input)打开文件,题中说明这是个顺序文件,那么如果文件指针没有到文件尾(EOF(1)的值为False),就要从文件中读出数据,所以循环条件应以是否到文件尾为依据,判断是否继续循环。

多项选择题
问答题 简答题