[单项选择题] 在窗体上画一个命令按钮，然后编写如下代码： Private Type RecordID As Integer Name As String

[单项选择题] 在窗体上画一个命令按钮，然后编写如下代码：

Private Type Record

ID As Integer

Name As String *20

End Type

Private Sub Command1_Click()

Dim Maxsize, NextChar, MyChar

Open "d:empfemale.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$函数用于从文件中读出指定个数的字符。