已知c:\1.txt是一个非空文件,其程序代码如下。 Private Sub Command1_Click() Dim MaxSize,NextChar,MyChat Open"c:\1.txt"For Input As#1

admin2009-02-13  29

问题 已知c:\1.txt是一个非空文件,其程序代码如下。    Private Sub Command1_Click()      Dim MaxSize,NextChar,MyChat      Open"c:\1.txt"For Input As#1      MaxSize=LOF(1)      For NextChar=MaxSize To 1 Step-1        Seek #1,NextChar        MyChar=Input(1,#1)     Next NextChar   Print EOF(1)    Close #1    End Sub    程序运行后,单击命令按钮,其输出结果为______。

选项 A、True
B、Null
C、0
D、False

答案8

解析 For循环开始执行时,由于NextChar=MaxSize,所以要执行语句Seek #l,NextChar,文件指针指向文件尾,使EOF(1)为真,循环结束后,文件指针指向文件的开始处,故其输出结果为False。
转载请注明原文地址:https://jikaoti.com/ti/L8q0FFFM
0

最新回复(0)