首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配
如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配
admin
2017-08-22
62
问题
如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项:若未找到,则在Text2中显示“查无此人”,在横线处应填写( )。
Private Sub Command 1 Click()
Dim k As Integer,n As Integer,found
As Boolean
found=False
n=Len(Text1.Text1:k=0
While k
If Text1=LeftS(List1.List(k),n)Then
Text2=
found=True
End If
k=k+1
Wend
If Not found Then
Text2="查无此人"
End If
End Sub
选项
A、List1.Text
B、List1.List(k)
C、List1.ItemData(k)
D、List1.Text(k)
答案
B
解析
本题考查字符串函数。首先要测定查找对象的长度,接下来在列表框中进行查找,找到则在Text2中显示List1.List(k)的值,因此第一空处应为Text2=List1.List(k)。
转载请注明原文地址:https://kaotiyun.com/show/D3Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写一个过程把C盘中的Config.sys文件内容读出,并在文本框中显示出来。在窗体Form1建立一个文本框Text1,将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。optionEx
下列程序运行后的输出结果是______。PrivateSubf(k,s)s=1Forj=1Toks=s*jNextEndSubPrivateSubCommand1_Click()Sum=0Fori=1To3Call
在面向对象方法中,类之间共享属性和操作的机制称为【】。
在窗体上有一个文本框,其名称为Text1,编写下列事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsStringstr=Chr(KeyAscii)KeyAscii=Asc(
如果准备读文件,打开顺序文件"text.dat"的正确语句是
运行下列程序段后,显示的结果为 J1=63 J2=36 IfJ1<J2ThenPrintJ2ElsePrintJ1
若要求输入密码时文本框中只显示“*”号,则应当在文本框的属性窗口中设置______属性。
如果A为整数且|A|>=10,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是()。
下列叙述中正确的是()。
随机试题
下列叙述不是硝苯地平的特点是
下列关于喷墨打印技术的叙述不正确的是
涪东区卫生局接报后,在本辖区截获一车未经检疫的肉类制品。现场调查资料显示,这批食品购自广宁县某食品厂,拟运往涪城市销售,已经途经涪北、普济二县,该厂还存有2000多公斤未经检疫猪肉。根据《食品卫生法》规定,对该厂尚存的未经检疫猪肉采取控制措施的卫生行政部门
某患者Hb50g/L,属于
大气环境一级评价项目现状监测时,以监测期间所处季节的主导风向为轴向,取上风向为0°,至少在约()方向上各设置1个监测点,并且在下风向加密布点。
关于混凝土小型空心砌块砌体工程质量验收的说法,正确的有()。
企业有( )行为的,可以不对相关国有资产进行评估。
【2015年江苏南京】我国未成年人保护法明确规定,我国未成年人是指未满18周岁的公民。()
“接受学习”的创始人是_________。
考生文件夹下存在一个数据库文件“sampl.accdb”,里面已经设计好表对象“tStud”。请按照以下要求,完成对表的修改:完成上述操作后,将“备注”字段删除。
最新回复
(
0
)