单选题 在窗体上画一个名称为Command1的命令按钮,并编写如下程序:
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub Command1_Cilck()
Dim MaxSiza, 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”。