首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签Label1中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息 Private Sub Command1_Click() Dim x As Integer
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签Label1中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息 Private Sub Command1_Click() Dim x As Integer
admin
2019-03-08
85
问题
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签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全国计算机二级
相关试题推荐
VisualBasic中,日期"1999年6月18日"的表达形式为()。
在窗体上画一个名称为Command1的命令按钮,并编写如下程序代码:PrivateConstNUMAsInteger=10PrivateSubCommand1_Click()DimaAsInteger,bAsInt
对于命令按钮,下列说法中正确的是()。
如果窗体模块A中有一个过程:PrivateSubProc()……EndSub则下面叙述中错误的是
对于窗体Form1,下列叙述中正确的是
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
若要清除列表框控件中的所有列表项,应该使用的方法是
类模块文件的扩展名为
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
下面有关标准模块的叙述中,错误的是
随机试题
焊接时应尽量采用长弧焊接,因为长弧焊时电弧的范围大,保护效果好。()
设函数f(x-1)=x2+e-x,则f’(x)等于()
患者女性,50岁,妊娠5次,生产3次。近来有阴道不规则出血。妇科检查发现子宫颈肥厚,活检病理报告为高分化鳞状细胞癌。子宫颈癌根治术标本检查,报告为子宫颈高分化鳞癌,侵及子宫颈深部组织达1cm,切除淋巴结未见癌转移。与患者肿瘤病变相符的是
屈指肌腱损伤,修复后提倡
路线价估价法不宜用于评估()用地。
2009年底,小刘欲以自有资金和商用房贷款购买一套价值140万元的商用房。如果小刘是以商住两用房名义申请的贷款,银行对于商住两用房的首付比例规定为最低45%,则其贷款额度最大为()万元。
根据我国《税收征管法》的规定,税务机关在税款征收中,根据不同情况有权采取的措施有()。
2012年1月20日,ABC会计师事务所首次接受乙集团的委托审计其20l1年集团财务报表,委派B注册会计师为集团项目合伙人带领集团项目组执行审计工作。集团项目组可以通过下列()途径了解集团及其环境、集团组成部分及其环境。
训练学生估计不同大小长方形的面积,一段时间后,测试结果发现学生估计长方形面积的能力提高,而估计圆形面积的能力并未提高。这个实验可以支持()。
Readthearticlebelowabouthumanresourceassessment.Inmostofthelines(34-45),thereisoneextraword.Iteitheris
最新回复
(
0
)