在窗体上画一个命令按钮，然后编写如下代码：Private Type RecordID

问题单项选择题

在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub Command1_Click( )
Dim MaxSize, NextChar, MyChar
Open "d:\vb\tt. 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
假设文件d:\vb\tt. txt 的内容为 Hello eveybody! 那么程序运行后，单击命令按钮，其输出结果为 ______。

A．True

B．False

C．0

D．Null

答案

参考答案：B

解析：在For循环体中，最后利用Seek语句将文件指针指向第1个字符后；因此Print EOF(1)语句中， EOF(1)函数得到的值为False，即文件指针当前不指向文件的结尾。值得注意的是，当文件d:\vb\tt.txt的内容为空或者是该文件只有一个字符的时候，EOF(1)函数得到的值就应该为True，也就是说当前文件指针指向文件结尾。