问题
单项选择题
已知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-1Seek #1,NextCharMyChar=Input(1,#1) Next NextChar Print EOF(1) Close #1 End Sub 程序运行后,单击命令按钮,其输出结果为______。
A.True
B.Null
C.0
D.False
答案
参考答案:D
解析: For循环开始执行时,由于NextChar=MaxSize,所以要执行语句Seek #l,NextChar,文件指针指向文件尾,使EOF(1)为真,循环结束后,文件指针指向文件的开始处,故其输出结果为False。