首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为conunandl的命令按钮,并有以下程序。 Private Sub Command1_Click()
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为conunandl的命令按钮,并有以下程序。 Private Sub Command1_Click()
admin
2017-08-22
69
问题
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为conunandl的命令按钮,并有以下程序。
Private Sub Command1_Click()
Dim str As String,s As String,k As Integer
s=TeXtl:str=""
For k=List1.ListCount-1 To 0 Step-1
If InStr(List1.List(k),s)>0 Then
str=str &List1.List(k)&" "
End If
Next k
Ifstr=""Then
Text2="没有匹配项目"
Else
Text2=str
EndIf
End Sub
程序运行时,在Text1中输入”京”,单击命令按钮,则在Text2中显示的内容是( )。
选项
A、京
B、北京南京
C、南京北京
D、没有匹配的项目
答案
C
解析
本题考查循环程序的分析以及列表框属性的应用。函数InStr(List1.List(k),s)的作用是在List1.List(k)中从头开始寻找s,找不到就返回0,否则返回s在List1.List(k)中的位置。整个循环的功能是,从列表框中最后一个列表项开始寻找含有与Text1中字符串相同的子串,如果存在相同的子串,把List1.List(k)全部连接到str中,并显示在Text2中。
转载请注明原文地址:https://kaotiyun.com/show/xtGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当一个复选框被选中时,它的Value的属性的值是
下列不能打开属性窗口的操作是______。
以下关于保存工程的说法正确的是
下列程序是将两个文本框(text1和text2)的内容进行组合,组合后的结果在图片框(Pic1)显示出来。PrivateSubCommand1_Click()DimslAsString,s2AsStringS1
在程序的空白行处填写适当的语句,完成以下功能:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。DoWhileList2.ListCount________
一棵二叉树第六层(根结点为第一层)的结点数最多为【】个。
有下列两个过程:SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSub
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是()。
设有下列二叉树:对此二叉树后序遍历的结果为
设一棵完全二叉树共有500个结点,则在该二叉树中有【】个叶子结点。
随机试题
试用教育相关理论分析下列材料所反映出来的问题。家庭教育研究专家赵忠心在接受《中国教育报》采访时曾说过:“有一些家长,孩子上了大学,上了清华、北大、哈佛、牛津,就把功劳都记录在自己的功劳簿上。这不是实事求是的态度。单靠哪一个家长就能把孩子送入大学?
考核车床工作精度时,可以不考虑加工表面粗糙度。()
在Access2010中,不属于逻辑数据模型的有________。
刺激迷走神经可用于治疗
A.清热解毒,凉血消斑B.清热解毒,疏散风热C.清热解毒,利咽开音D.清热解毒,消痈排脓大青叶、青黛功效的共同点是
睾酮主要由哪种细胞分泌
休克早期的临床表现是()。
巴塞尔委员会发布的《有效银行监管核心原则》是国际银行业良好监管实践的最高标准。()
吴先生分配至SM公司工作,2000年3月被借调到SM公司上级公司的交易部(以下简称交易部)工作,2001年3月起,吴先生离开交易部,与好友一起从事商贸话动。2001年4月,SM公司在实行全员劳动合同制时与吴先生签订了无固定期限劳动合同。2002年
Howmanytimedoyouspendwithyourparents?【M1】______Yourparentsareyourdearerpeopleintheworld
最新回复
(
0
)