在窗体上画一个命令按钮,然后编写如下代码: Pfivate Sub Command1_Click() Dim MaxSize,NextChar,MyChar Open"d:\temp\female.txt"For Input As

admin2017-08-22  19

问题 在窗体上画一个命令按钮,然后编写如下代码:
    Pfivate Sub Command1_Click()
    Dim MaxSize,NextChar,MyChar
    Open"d:\temp\female.txt"For Input As #1
    MaxSize=LOF(1)
    ForNextChar=MaxSize To 1 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

解析 本题考查文件的操作。以读的方式打开文件female.txt,Nextchar表示从文件的最后一个字符开始。程序首先定位到该字符,然后取出一个字符,存放到字符串Mychar中。输出的EOF(1)表示文件指针是否到达文件l的末尾。返回值有True(移动到末尾)和False(没有到末尾)。既然是从后往前读出每个字符,因此操作结束以后,文件指针不可能移动到文件的末尾,所以EOF(1)的值必然为False。
转载请注明原文地址:https://jikaoti.com/ti/GDy0FFFM
0

最新回复(0)