窗体上画一个命令按钮,然后编写如下代码:Private Type Record ID As Integer Name As String * 20End TypePrivate Sub command1 _ Click( Open "c:

admin2010-09-11  21

问题 窗体上画一个命令按钮,然后编写如下代码: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。
转载请注明原文地址:https://kaotiyun.com/show/bJmp777K
0

最新回复(0)