问题
单项选择题
已知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
答案
参考答案:D
解析: For循环开始执行时,由于NextChar=MaxSize,所以要执行语句Seek #l,NextChar,文件指针指向文件尾,使EOF(1)为真,循环结束后,文件指针指向文件的开始处,故其输出结果为False。