首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如图5所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹
如图5所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹
admin
2019-03-14
55
问题
如图5所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”,在横线处应填写( )。
Private Sub Command1_Click()
Dim k As Integer,n As Integer,found As Boolean
found=False
n=Len(Text1.Text)
k=0
While k<Listl.ListCount And Not found
If Text1=Left$(Listl.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(k1
C、List1.ItemData(k)
D、List1.Text(k)
答案
B
解析
本题考查字符串函数。首先要测定查找对象的长度,接下来在列表框中进行查找,找到则在Text2中显示List1.List(k)的值,因此第一空处应为Text2=List1.List(k)。
转载请注明原文地址:https://kaotiyun.com/show/PpFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下程序:PrivateSubForm_Click()DimmAsSingle,nAsStringDimflagAsIntegerm=InputBox("请输入一个单精度数")n=
下列叙述中错误的是
编写如下程序:DimxAsInteger,yAsInteger,zAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=1:y=2:z=3
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\10
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是( )。
在数据库设计中,描述数据间内在语义联系得到E-R图的过程属于
软件生命周期中,确定软件系统要做什么的阶段是
以下表达式与Int(3.5)的值相同的是
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
下列关于数据库设计的叙述中,正确的是
随机试题
动脉导管的分型为
患者,女,19岁。喘逆上气,胸胀疼痛,息粗,鼻翼扇动,咳而不爽,吐痰黏稠,伴四肢寒冷,身痛,无汗,口渴,苔薄白,舌边红,脉浮数。其临床上应当治以
下列关于工程项目计划体系的说明,正确的是()。
建筑工程一切险是承保以土木建筑为主体的工程项目在整个建筑期间因自然灾害或意外事故造成的物质损失,以及依法应承担的第三者责任的保险。其保险项目包括物质损失部分、第三者责任及附加险三部分,其中物质损失部分不应当包括()。
《中华人民共和国对外贸易法》已于______正式实施。
阅读材料,并按要求作答。小摄影师1928年夏天,高尔基住在列宁格勒。他经常坐在窗子旁边工作。一个阳光明媚的早晨,高尔基正在读书,突然
试论西欧启蒙运动及其历史意义。(北京师范大学2001年历史学综合考试真题)
口腔黏膜上皮中的角质形成细胞,不包括()。
在计算机中,算法是指______。
A、Shegothomebefore9o’clock.B、Shewasdelayed.C、Shehadacaraccident.B
最新回复
(
0
)