首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配
如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配
admin
2020-04-18
53
问题
如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)中输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”,在横线处应填写( )。
Private SUb Command1_Click( )
DimkAs Integer,nAs Integer,found
As Boolean
found=False
n=Len(Text1.Text):k=0
While k<List1.ListCoumAnd Not found
If Text1=Left$(List1.List(k),n)Then
Text2=____________
found=True
End If
k=k+1
Wend
IfNotfoundThen
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/gfTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
A、选择B、差C、交D、并B关系T是关系R的一部分,并且是关系R去掉R和S相同的元素,符合差操作。
在窗体上画一个Text1文本框和一个CD1通用对话框控件,并编写下面程序:PrivateSubCommand1_Click()CD1.Flags=1Or256CD1.Action=4IfCD1.Color
文本框接受的最长字符数由文本框的()属性确定。
为使文本框具有初始值"VB",在设计阶段正确的操作是
执行下面的程序段后,变量S的值为()。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
标准模块中有如下程序代码:PublicxAsInteger,YAsIntegerSubTempSub()x=10:y=20EndSub在窗体上有1个命令按钮,并有如下事件过程:PrivateSubCommand1_Click(
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框,其Text属性值为"VBProgramming"。运行程序后,选中其中的"VB",并执行如下事件过程:PrivateSubCommand1_Click()
下面程序运行时,若输入395,则输出结果是()。PrivateSubCmdI_Click()Dima%a=InputBox(“请输入一个3位整数”)PrintaMod10,a\100,(aMod100)\10EndSu
有下面程序代码:PrivateSubCommand1_Click()i=1DoWhilei<5j=1Doj=j+1Pr
随机试题
简述公共卫生的基本特征。
以尾蚴为感染阶段的吸虫是
患者,男,37岁,诉右上后牙自发性钝痛1个月,1天前疼痛加重,较剧烈,出现夜间痛,冷热刺激加剧。视诊见2号牙深龋洞,探诊(++)。患者应先行以下哪项检查()
结核性渗出性胸膜炎,胸腔穿刺抽液时,下列哪项是错误的
除文艺、体育和特种行业外,禁止用人单位招用________的未成年人。()
甲公司为增值税一般纳税人。2009年1月1日,甲公司发出一批实际成本为240万元的原材料,委托乙公司加工应税消费品,收回后直接对外出售。2009年5月30日,甲公司收回乙公司加工的应税消费品并验收入库。甲公司根据乙公司开具的增值税专用发票向乙公司支付加工费
某研究人员指出,洗浴产品可能会破坏海洋生态。因为一些洗浴产品中含有一种主要成分是聚乙烯(常用于制造各种塑料制品)的珠状微粒。但这种微粒太小,过滤不掉,导致其直接进入海洋,海洋生物则将其当成食物吞进肚子,进而导致许多海洋生物的死亡。该研究人员据此认为,要保护
AlfredNobel,aSwedishinventorcontributedmostofhisvastfortuneinatrustasafundfromwhichannualprizescouldbeawa
设f(x)在(a,b)可导,且.求证:存在ξ∈(a,b)使得f’(ξ)=0.
Itisreportedthatover300millionpeopleinChinaaresufferingfromnearsightedness(近视).Asmorechildrenhavegoteyetroub
最新回复
(
0
)