首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签Label1中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息 Private Sub Command1_Click() Dim x As Integer
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签Label1中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息 Private Sub Command1_Click() Dim x As Integer
admin
2019-03-08
57
问题
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签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全国计算机二级
相关试题推荐
在窗体上建立一个标签数组,名称为Label1,下标从0开始,自左至右顺序增大,然后编写如下事件过程:PrivateSubForm_Click()ForEachLabelInLabel1Label1(i).Capti
在运行时,如果按Tab键跳过了一个可以获得焦点的控件(如文本框),其原因可能是()。
下列有关通用对话框控件的说法中,正确的是
为了改变单选按钮的选取状态,可以改变该控件一个属性的值,这个属性是
在窗体Form1上画一个名称为Command1的命令按钮,编写如下程序代码:PrivateTypestusnAsString*20classAsString*20EndTypePrivateSubCommand1
通用对话框控件文件建立对话框时,可以通过一个属性指定对话框的标题,这个属性是
在设计阶段,假定在图片框Picture1中装入了一个图形,为了删除该图片框控件,应采用的正确操作是
窗体上有1个名称为CD1的通用对话框,1个名称为Command1的命令按钮,并有如下程序:PrivateSubCommand1_Click()CD1.CancelError=TrueCD1.FileName="new.txt"
软件生命周期中,确定软件系统要做什么的阶段是
下面有关标准模块的叙述中,错误的是
随机试题
患者,发作性胸痛1年,近10天来胸痛频作,痛剧彻心,连及左侧肩背,伴有身寒肢冷,喘息不得卧,舌苔白,脉象沉紧。选方为
A.N–氧化物B.N–羟基化合物C.环氧化物D.硫醚E.砜亚砜类药物经还原生成()。
根据《建筑法》规定,建筑工程主体结构的施工()。
某场地软弱土层厚20m,采用水泥土桩进行地基加固,初步方案为面积置换率m=0.2,桩径d=0.5m,桩长l=10m,水泥掺合量取18%,经计算后沉降约20cm,为将工后沉降控制在15cm以内,需对初步方案进行修改,()最有效。
建设工程项目施工成本管理最根本、最重要的基础工作是()
细水雾灭火系统故障中稳压泵规定时间内不能恢复压力的处理办法不包括()。
某作家指控某杂志社侵犯其著作权,法院裁定作家胜诉,该作家取得杂志社的经济赔偿款40000元,该赔偿收入应缴纳个人所得税额( )元。
Consumersarebeingconfusedandmisledbythehodge-podgeofenvironmentalclaimsmadebyhouseholdproducts,accordingtoa"g
1,3,9,15,25,(),49,63,81
在局域网所出现的网络故障中,有75%都是由()引起。
最新回复
(
0
)