2. 计算机
  3. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Type Record ID As Integer Name As String*20 End Type Private Sub Co

在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Type Record ID As Integer Name As String*20 End Type Private Sub Co

admin2019-06-11  37
问题 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
    Private Type Record
    ID As Integer
    Name As String*20
    End Type
    Private Sub Command1_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
解析 程序中以顺序输入方式打开d：＼temp＼female．txt文件。LOF函数取得打开文件的长度。EOF函数用来测试文件的结束状态。根据文件长度值，利用Input函数逐一取出文件中的字符，每读取一个字符，文件指针自动下移，指向下一个字符。当执行最后一次循环时，Input函数读取了最后一个字符，文件指针再向下移动就会指向文件的结尾。因此当EOF函数测试文件结束状态时，就会返回True。对于逻辑值，Print语句会直接输出True。因此答案为A。
转载请注明原文地址:https://kaotiyun.com/show/wNUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)