首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如图5所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹
如图5所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹
admin
2019-03-14
56
问题
如图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全国计算机二级
相关试题推荐
在Open语句中可以用Output和Append两种方式打开顺序文件,其主要区别是
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Cl
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为( )。
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click() Open"out.txt"ForOutputAs#2 Print"Text1" Close
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
对于某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
在数据库设计中,描述数据间内在语义联系得到E-R图的过程属于
VisualBasic中的“启动对象”是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic“启动对象"的描述中,错误的是
随机试题
Thiskindofcoffeeisdifferent
患者,男,19岁。恶寒发热,头痛身痛,无汗而喘,舌苔薄白,脉浮紧。治疗应首选
慢性胃溃疡最常见的并发症是
体现了项目管理方案作用的内在本质的项目管理方案特点是()。
蒸压加气混凝土砌块通常可用于()建筑的承重墙。
水泥混凝土搅拌设备应优先选用()。
某企业采用存货模型确定目标现金余额,每年现金需求总量为320000元,每次现金转换的成本为1000元,持有现金的再投资收益率约为10%,则下列说法中正确的有()。
关于假释的考验期限,错误的说法有()。
“关山万里残霄梦,犹听江东战鼓声。”中华民族伟大复兴这一梦想,_______了几代中国人的夙愿。填入画横线部分最恰当的一项是:
ReadthetextbelowabouttheUSBankingSystem.Foreachquestion(31-40),writeonewordinCAPITALLETTERSonyourAnswerShe
最新回复
(
0
)