单选题 在窗体上画一个名称为Command1的命令按钮,并编写如下程序:
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
MyChar=Input(1, #1)
Next NextChar
Print EOF(1)
Close #1
End Sub
运行程序,单击命令按钮,其输出结果为______。
【正确答案】 A
【答案解析】[解析] 程序中以顺序输入方式打开d:/temp/female.txt文件。LOF函数取得打开文件的长度。EOF函数用来测试文件的结束状态。根据文件长度值,利用Input函数逐一取出文件中的字符,每读取一个字符,文件指针自动下移,指向下一个字符。当执行最后一次循环时,Input函数读取了最后一个字符,文件指针再向下移动就会指向文件的结尾。因此当EOF函数测试文件结束状态时,就会返回True。对于逻辑值,Print语句会直接输出True。因此答案为A。