2. 计算机
  3. 在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输人)，找到后在标签Labell中显示该数是文件中第几个数；如果没找到，则显示文件中没有该数的信息 Private Sub Commandl_Click() Dim X As Int

在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输人)，找到后在标签Labell中显示该数是文件中第几个数；如果没找到，则显示文件中没有该数的信息 Private Sub Commandl_Click() Dim X As Int

admin2019-06-20  74
问题 在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输人)，找到后在标签Labell中显示该数是文件中第几个数；如果没找到，则显示文件中没有该数的信息
    Private Sub Commandl_Click()
    Dim X As Integer，n As Integer
    a=Val(Text1．Text)
    Open”filel．txt”For Input As#l
    Do While NOt EOF(1)
    Input_______
    n=n+1
    If X=a Then
    Labell．Caption=a&”是文件中第”＆n&”个数”
    Close#1
    Exit Sub
    End If
    Loop
    Close#1
    Labell．Caption=”文件中没有”&a
    End Sub
    要使上面的程序代码实现上述功能，在横线处应填写的是(    )。
选项 A、#l，X
B、#1，a
C、1，a
D、1．n
答案A
解析 EOF函数常用来在循环中测试是否已到文件尾，顺序文件的读操作由Input#语句和Line Input#语句来实现，格式为：Input#文件号，变量表，故选项C、D错误。Input#语句从一个顺序文件中读出数据项，并把这些数据项赋值给程序变量，本题先从顺序文件中读出一个数据赋值给变量x，然后通过if语句判断所读出的数据x和输入的数据a是否相等。若相等，则将该数据显示在标签控件Labell上，故选项A正确。
转载请注明原文地址:https://www.kaotiyun.com/show/xMUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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