问题 单项选择题

已知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。

判断题
单项选择题