A-A+
窗体上画一个命令按钮 然后编写如下代码:Private Type Record ID As
问题详情
窗体上画一个命令按钮,然后编写如下代码:Private Type Record ID As Integer Name As String * 20End TypePrivate Sub command1 _ Click(Open "c: file. txt" for Input As MaxSize = LOF (1) for NextChar =MaxSize To Step-1 Seek #1, NextChar MyChar=Input(1,#1) Next NextChar Print EOF(1) Close #1 End Sub程序运行后,单击命令按钮,其输出结果为______。
A.True
B.False
C.0
D.Null请帮忙给出正确答案和分析,谢谢!
参考答案
正确答案:B
解析:本题的难点是如何确定文件的指针是否指在文件的末尾处。Seek语句把相应文件的文件指针由后向前移动,当循环结束时,文件指针在文件的开始处,所以EOF(1)为False。