在窗体上画一个名称为Commandl的命令按钮,并编写如下程序: Private Type Record IDAs Integer:NameAs String*20 End Type Private Sub Co

admin2020-04-18  27

问题 在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:
    Private Type
          Record IDAs Integer:NameAs String*20
    End Type
    Private Sub Command l_Click()
          Dim MaxSize,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、True   
B、False   
C、0
D、Null

答案A

解析 LOF函数返回给文件分配的字节数(即文件的长度),与DOS下用Dir命令所显示的数字相同。EOF函数用于判断文件指针是否已到文件结尾,如果到达文件末尾,则返回True。通过使用EOF函数,测试是否到达文件末尾。本题中的循环遍历了整个文件,因此循环结束时文件指针在文件结尾。
转载请注明原文地址:https://kaotiyun.com/show/paTp777K
0

最新回复(0)