首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如图5所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹
如图5所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹
admin
2016-11-12
39
问题
如图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
If Text l=LeftS(List 1.List(k),n)Then
Text2=________
found=True
End If
k=k+1
Wend
IfNot 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://jikaoti.com/ti/eTy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的执行结果是()。PrivateSubFormActivate0Dimscore(3)AsInteger,totalAsIntegerDimaa_scoreAsVariants
下列程序段的执行结果为()。a=6Fork=1To0a=a+kNextkPrintk;a
下面叙述不正确的是()。
在过程定义中,Private表示()。
以下对文件分类的划分不正确的是()。
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
在工程的标准模块中定义了一个如下的记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上有一个名为Commandl的命
下面哪个属性不是框架控件的属性()。
设窗体文件中有下面的事件过程:PrivateSubCommandl_Click()Dimsuma%=100PrintaEndSub其中变量a和sum的数据类型分别是(
下面程序段的作用是从文本框中输入数据,如果该数据满足条件:除以6余2,除以5余3,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。PrivateSubCommandlClick()num=Val(Textl.Tex
随机试题
人民法院决定受理没收违法所得的申请后,应当在十五日内发出公告。公告应当写明以下哪些内容?()
试说明“将在外君命有所不受”蕴含的管理思想。
某施工现场的负责人没有将作业现场存在安全隐患因素对作业人员进行说明的情况下就要求刚刚签订劳动合同的操作人员进入现场作业。某天,在施工现场,李某在操作起重机时遇到旁边的建筑物崩塌,李某迅速离开现场,结果造成起重机毁坏;此次崩塌使一地下工程出现重大安全隐患,安
根据政府采购法律制度的规定,下列情形中,采购人可以采用邀请招标方式采购的有()。
旅行社安排的旅游活动及服务档次与协议合同不符,造成旅游者经济损失,应退还旅游者合同金额与实际花费的差额,并赔偿()。
美术教学活动中,教师对学生的评价语言非常重要,你认为合适的有哪些?()。
赵甲与邻村周某因耕地引水发生争斗,并将周某打成轻微伤,当时打斗现场还有其他三人在场,其中包括赵甲刚满12周岁的儿子赵乙。周某遂将赵甲诉至法院,庭审中赵甲申请其儿子赵乙出庭作证。据此,下列说法正确的是()。
规定公文的统一规范格式,其目的在于()。
下列属于平衡法的是()
Note:whenmorethanoneanswerisrequired,thesemaybegiveninanyorder.Somechoicesmayberequiredmorethanonce.
最新回复
(
0
)