窗体的单击事件过程如下: Private Sub Form_Click() n = FreeFile Open "e:\f1.txt" For Input As n Do While Not EOF(n) Line

admin2015-06-30  21

问题 窗体的单击事件过程如下:
Private Sub Form_Click()
    n = FreeFile
    Open "e:\f1.txt" For Input As n
    Do While Not EOF(n)
        Line Input #n, str1
        Print str1
    Loop
    Close
End Sub
对于以上程序,如下叙述中错误的是

选项 A、Open打开一个随机文件
B、n = FreeFile的作用是自动获取文件号,并赋值给n
C、Line Input语句从#n对应的文件中读数据,并赋值给str1
D、Not EOF(n)的含义是没有到达n所对应文件的末尾

答案A

解析 FreeFile函数返回一个整数,即下一个可供OPEN语句使用的文件号,参数范围可以是0或1,也可以省略。FreeFile(0)、FreeFile或FreeFile()表示返回1~255之间未使用的文件号;FreeFile(1)表示返回256~511之间未使用的文件号。利用这个函数,可以把未使用的文件号赋给一个变量,从而用这个变量作为文件号。故B项表述正确。Open语句兼有打开文件和建立文件两种功能。题目中采用Input方式打开文件,指定文件顺序输入方式,故Open打开的是顺序文件。故A项错误。EOF函数用来返回测试文件的结束状态,对于顺序文件来说,如果已达到文件尾,则函数返回值为True,否则返回值为False。利用EOF函数,可以避免在文件输入时出现"输入超出文件尾"的错误。EOF(n)的含义是已到达文件尾,Not EOF(n)的含义是没有到达n所对应文件的末尾。故D选项表述正确。Line Input是从一个顺序文件中读出一个完整的行,并把它赋值给一个字符串变量。Line Input #n, str1指从n的文件号的文件读出一个完整的行,并把它赋值给str1。故C选项表述正确。
转载请注明原文地址:https://kaotiyun.com/show/dtQp777K
0

最新回复(0)