首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输人),找到后在标签Labell中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息 Private Sub Commandl_Click() Dim X As Int
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输人),找到后在标签Labell中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息 Private Sub Commandl_Click() Dim X As Int
admin
2019-06-20
78
问题
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输人),找到后在标签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://kaotiyun.com/show/xMUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
请根据以下各小题的要求设计visualBasic应用程序(包括界而和代码)。(1)在名称为Forml、标题为“标签”的窗体上画一个名称为Labell的标签,并设置适当属性以满足以下要求:①标签的内容为“计算机等级考试”;②标
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画1个命令按钮,其名称为C1,标题为“等级考试”;再画1个文本框,名称为T1,如图2-107(a)所示。请编写适当的事件过程,使程序运行
下面正确使用动态数组的是()。
设a="VisualBasic",下面语句中可使b="Basic"的是()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
下面不能作为结构化方法软件需求分析工具的是
软件设计中划分模块的一个准则是
算法的空间复杂度是指( )。
下列运算符中,优先级别最低的是
随机试题
白居易的《长恨歌》和《琵琶行》属于【】
中国古代社会一些启蒙作品多涉及到当世的法律观念和司法制度,这在下列的哪些表述中有所体现?(2011年试卷一第56题)
系统或产品在规定条件和规定时间内完成规定功能的概率是()。
小王、小李、小张、小苏四人的笔试成绩有“缺考、不及格、优秀、满分”四种情况。存问到他们各自的成绩时,小王说:“小李没有参加考试。”小李说:“小张是满分。”小张说:“小苏不是优秀。”小苏说:“除我之外的三人中,有一人是满分且只有他说的是实话。”如果
写意山水画技法的一般步骤是()。
①很多人怀念50年代的社会风气,认为现在风气变差,并以此为依据,认为现在的年轻人不如老一辈②但实际上,每件事情的影响都有滞后性③换言之,人们所怀念的50年代的社会主体其实是1900一1920年出生、经历过民国教育的那代人④有人
简述朱元璋的治国方略。
下列变量中,影响内隐记忆但不影响外显记忆的是
为了保障数据的存储和传输安全,需要对一些重要数据进行加密。由于对称密码算法(15),因此特别适合对大量的数据进行加密。国际数据加密算法IDEA的密钥长度是(16)位。
SurvivalSkillsforaJobYouDetestA)Weallhaveheard—oratleastseeninthemovies—greatstoriesaboutpeoplewhoareworki
最新回复
(
0
)