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

在一个有若干个整数的顺序文件中查找一个数（这个数从文本框中输入），找到后在标签Label1中显示该数是文件中第几个数；如果没找到，则显示文件中没有该数的信息 Private Sub Command1_Click() Dim x As Integer

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

二级VB

NCRE全国计算机二级

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