首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。 Private Sub Command 1 Click()
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。 Private Sub Command 1 Click()
admin
2016-01-22
89
问题
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。
Private Sub Command 1 Click()
Dim str As String,s As String,k As Integer
s=Text1:str=" "
For k=List1.ListCount-1 To 0 Step-1
If InStr(List 1.List(k),s)>0 Then
str=str&List 1.List(k)&" "
End If
Next k
If str=" "Then
Text2="没有匹配项目"
Else
Text2=str
End If
End Sub
程序运行时,在Text1中输入"京",单击命令按钮,则在Text2中显示的内容是( )。
选项
A、京
B、北京南京
C、南京北京
D、没有匹配的项目
答案
C
解析
本题考查循环程序的分析以及列表框属性的应用。函数InStr(List1.List(k),s)的作用是在Lisf1.List(k)中从头开始寻找s,找不到就返回0,否则返回s在List1.List(k)中的位置。整个循环的功能是,从列表框中最后一个列表项开始寻找含有与Text1中字符串相同的子串,如果存在相同的子串,把List1.List(k)全部连接到str中,并显示在Text2中。
转载请注明原文地址:https://kaotiyun.com/show/LwLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
VisualBasic布尔运算符Xor,Or,Eqv,And中,级别最高的运算符是()。
假设变量boolVar是一个布尔型变量,则下面正确的赋值语句是<)。
下列程序运行时输出的结果是()。OptionBase1PrivateSubForm_Click()Dimx(10)AsInteger,y(5)AsIntegerForI=1to10
执行下面的程序段后,x的值为()。x=50Fori=1To20Step2x=X+i\5Nexti
以下()操作不能打开属性窗口
按文件的访问方式不同,可以将文件分为()。
栈底至栈顶依次存放元素A、B、c、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是______。
下列叙述中正确的是()。
下列程序弹出对话框中按钮的个数为【】。MsgBox″确认!″,vbAbortRetryignore+vbMsgBoxHelpButton+vbInformation,″提示;″
随机试题
在劳动资料方面,最能标志生产力发展水平的因素是()
A.口腔B.胃C.空肠D.回肠胆盐的吸收部位
某锅炉操作工人,在一个通风不良条件下,连续工作3~4小时,突然感到头痛,头晕等症状。患者面色潮红,口唇呈樱桃红色。可疑毒物中毒是
某县计量局在对辖区内的加油站进行计量检查时,发现某加油站的加油机存在加油数量短缺现象,遂决定给予罚款2000元的行政处罚。本案可以适用的程序有:( )
不是工程间接费的构成费用是()。
将总体共120个单元随机分为10路纵队(共12排),然后任取其中一排,得到12个样本单元,此抽样方法属于()。
________班会的形式包括:主题报告会、主题汇报会、主题讨论会、科技小制作成果展评会、主题竞赛、主题晚会等。
更改当前数据透视表的数据源为“A8:E9”。
Besidesactiveforeignenterprisesanda【C1】______numberofprivateemployers,aconsequentialnewdevelopmentwasthedevelopme
Ifyoudidn’tknowanybetter,youmightthinkthatStar,Snuppy,CCandANDiwerejustabunchofinterestingnames.You’donly
最新回复
(
0
)