问题
单项选择题
在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String *20
End Type
Private Sub Command1_Click()
Dim Maxsize, NextChar, MyChar
Open "d:\temp\female.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(I)
Close 31
End Sub
程序运行后，单击命令按钮，其输出的结果为
A．True
B．False
C．0
D．Null
答案
参考答案：B
解析：
[分析]： 这个题目的重点在于考核函数LOF、 EOF和Input$的使用。LOF函数能够返回文件的实际长度。EOF函数用于测定记录指针是否到达文件末尾。Input$函数用于从文件中读出指定个数的字符。