[单项选择题] 窗体上画一个命令按钮,然后编写如下代码:
Private Type Record
ID As Integer
Name As String * 20
End Type
Private 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。

![[单项选择题] 窗体上画一个命令按钮,然后编写如下代码:Private Type Record ID As Integer Name As String * 20End TypePrivate S [单项选择题] 窗体上画一个命令按钮,然后编写如下代码:Private Type Record ID As Integer Name As String * 20End TypePrivate S](http://www.mshxw.com/aiimages/31/259649.png)
