首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输人),找到后在标签Labell中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息 Private Sub Commandl_Click() Dim X As Int
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输人),找到后在标签Labell中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息 Private Sub Commandl_Click() Dim X As Int
admin
2019-06-20
32
问题
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输人),找到后在标签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://jikaoti.com/ti/a1N0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若要把窗体上命令按钮Command1的状态设置为不可用,应该执行的命令是
窗体上有一个名称为Command1的命令按钮,有程序如下:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger‘第1个ForFori=1To10a(i)=Int(Rnd*10
以下叙述中错误的是
设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是
下面是求最大公约数的函数的首部Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是
下列哪一条不属于数据库设计的任务?()
如果在列表框List1中没有选中项目,则List1.Listlndex的值为
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为()。
己知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1_Click()Di
下列运算符中,优先级别最低的是()。
随机试题
女,35岁,患慢性肝炎4年,要求给予避孕指导。应选择的避孕措施是
有关破膜的处理,错误的是
下列关于法律部门与法律体系的表述错误的是:()
卖方甲公司与买方乙公司签订的供货合同中约定,甲公司将乙公司所购买的部分货物直接运到丙公司。对于前述的约定,下列表述正确的有( )。
根据《仲裁法》规定,仲裁裁决书发生法律效力的时间是()。
2011年12月1日,甲、乙双方签订合同,甲向乙购入价值800万元的二手机器设备,按照合同约定,12月5日乙向甲发货,甲承诺5个月后付款,该买卖合同中没有订立所有权保留性质的条款。由于乙还需要该机器设备生产最后一批商品,因此甲、乙又在合同中约定,该设备自1
简述课外活动在人的身心发展中的重要意义和作用。
在知觉物体的距离和深度时,如果物体的视像落在两个眼睛视网膜的对应部分,那么会看到()
What’sSamaranch’sattitudetowardsdruguseinOlympicGames?Accordingtothepassage,whichofthefollowingisTRUE?
Youthrowitawaybecauseitiswaste.Yougetintoaroomthroughit.
最新回复
(
0
)