首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如图5所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹
如图5所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹
admin
2020-02-27
52
问题
如图5所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”,在横线处应填写( )。
Private Sub Commandl__Click()
Dim k As Integer,n As Integer,found As Boolean
found=False
n=Len(Text1.Text)
k=0
While k
If Textl=Left$(Listl.List(k),n)Then
Text2=___________.
found=True
End If
k=k+1
Wend
IfNot foundThen
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/aDTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了使命令按钮的Picture、DownPiettire或DisabledPiclure属性生效,必须把它的Style属性设置为()
以下关于文本框的叙述中,正确的是
执行语句DimX,YAsInteger后,()。
运动会中一个运动项目可以有多名运动员参加,一个运动员可以参加多个项目。则实体项目和运动员之间的联系是
以下变量名中合法的是()。
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是()。
设程序中定义了下面的过程:PrivateSubproc(chAsString)PrintchEndSub下面语句中错误的是()。
建立表示学生选修课程活动的实体联系模型,其中的两个实体分别是()。
某棵树中共有25个结点,且只有度为3的结点和叶子结点,其中叶子结点有7个,则该树中度为3的结点数为()。
下列说法中,错误的是()。
随机试题
下列情况较不易发生继发龋的是
男性,52岁。阵发性心悸半年,时有胸闷,登二楼觉气急3个月,下肢水肿3天来院门诊。心电图示窦性心律,心率64次/min,P—R间期0.24秒伴完全性右束支传导阻滞,诊断为扩张型心肌病,心功能不全。入院后予以洋地黄、利尿剂和扩血管药物治疗。第4天突然意识不清
患者,女,48岁。素有黄疸反复发作史12年。腹大坚满,膨如蛙腹,按之如囊裹水,烦热口苦,面、目、皮肤发黄,小便赤涩,大便秘结,舌边尖红,苔黄腻,脉弦数。其诊断是
我国法律上规定的实践合同包括()。
下列对于债权人取得的附生效条件的债权,说法正确的是()。
工资核算系统初始化中的部门编码和员工类型编码是必需的内容。()
Untilthelate1940swhentelevisionbeganfindingitswayintoAmericanhomes,companiesreliedmainlyonprintandradiotopr
下面是关于PC机中AGP总线的叙述,其中错误的是( )。
Nowmanyuniversitiesareaskingtheirstudentstoevaluatetheirteachers.Manystudentsareexcitedatthis,butmostteachers
Todaywetalkaboutthedifferencebetweenacollegeandauniversity.Collegesanduniversitieshavealotincommon.Theyprep
最新回复
(
0
)