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

admin2019-03-08  42

问题 在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签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://jikaoti.com/ti/zum0FFFM
0

随机试题
最新回复(0)