下面的程序执行时,将把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。 Private Sub Commandl_Click() Dim inData As String

admin2013-04-11  61

问题 下面的程序执行时,将把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。
    Private Sub Commandl_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 (NotEOF(1))

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

最新回复(0)