首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签Label1中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息 Private Sub Command1_Click() Dim x As Integer
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签Label1中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息 Private Sub Command1_Click() Dim x As Integer
admin
2019-03-08
33
问题
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签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全国计算机二级
相关试题推荐
下面关于列表框Selected属性的叙述中正确的是
下面属于面向对象方法中对象基本特点的是
设程序中使用了多个窗体,下面叙述中正确的是
以下是窗体的Click事件过程:PrivateSubForm_Click()DimaAsIntegera=1Doa=a+5LoopUntila>18PrintaEndSub程
下列叙述中正确的是
当窗体上有多个控件时,为了在程序运行后使得焦点位于某个控件上,应对该控件进行的设置是
窗体上有一个名称为Label1的标签控件,其Caption属性的初始值为0,还有一个计时器。为了在程序运行时,标签上的数字每秒加1,应该把语句:Label1.Caption=Label1.Caption+1写在一个事件过程中,这个事件过程是
(1)在名称为Form1,标题为“图片”的窗体上添加1个名称为Image1的图像框。其高为2500,宽为2000。请通过属性窗口设置适当属性,将考生文件夹下的图片文件pic1.jpg插入图像框,并使图片自动适应图像框的大小(如图所示)。注意:存盘
负责数据库中查询操作的数据库语言是( )。
(1)在名称为Form1的窗体上添加一个名称为Shape1的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求:①圆角矩形中填满绿色(颜色值为:&H0000FF00&或&HFF00&)。②窗体的标题为“
随机试题
义务教育经费严格按照预算规定用于义务教育;任何组织和个人不得侵占、挪用义务教育经费,不得向学校非法收取或者摊派费用。()
什么是冷焊法?
Itseemssonaturaltoputupanumbrellatokeepthewateroffwhenitrains.Butactuallytheumbrellawasnotinventedaspro
治疗急性梗阻性化脓性胆管炎最常用的有效手术方式是
在功能的系统分析过程中,()工作可以更准确地选择价值工程研究对象,同时,制定目标成本,有利于提高价值工程的工作效率,并增加工作人员的信心。
证券金融公司向证券公司转融通的期限一般不得超过()个月。
根据公司法律制度的规定,有限责任公司的股东转让股权后公司无须办理的事项是()。
甲企业采用移动加权平均法计算发出甲材料的成本,2013年4月1日,甲材料结存300千克,每千克实际成本为3元;4月3日,发出甲材料100千克;4月12日,购入甲材料200千克,每千克实际成本10元;4月27日,发出甲材料350千克,4月末该企业甲材料的期末
SharingSilenceDeafteenagersOrlandoChavezandGermanResendizhavebeenfriendssincekindergarten(幼儿园).Togetherthet
Ialwayseatbreakfast,andsuggestthatyoudotoo.Weallneedfoodinthemorningtosupplyourselves【C1】______sourcesofgl
最新回复
(
0
)