首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。 Private Sub Command1 Click() Dim
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。 Private Sub Command1 Click() Dim
admin
2020-07-22
16
问题
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。
Private Sub Command1 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(List1.List(k),s)>0 Then
str=str&List1.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)的作用是在List1.List(k)中从头开始寻找s,找不到就返回0,否则返回s在List1.List(k)中的位置。整个循环的功能是,从列表框中最后一个列表项开始寻找含有与Text1中字符串相同的子串,如果存在相同的子串,把List1.List(k)全部连接到str中,并显示在Text2中。
转载请注明原文地址:https://kaotiyun.com/show/9JHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
编写如下程序:PrivateSubCommandl_Click()DimmAsInteger,nAsIntegerm=2:n=1SelectCasem
执行下列语句str1nput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击“确定”按钮,则变量str1nput的内容是
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click()m=-3.6IfSgn(m)Thenn=Int(m)Elsen=Abs(m)EndIfPrintnEndSub运
下面可以产生20~30(含20和30)的随机整数的表达式是
下列与队列结构有关联的是()。
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
在学校中,“班级”与“学生”两个实体集之间的联系属于()关系。
在深度为7的满二叉树中,度为2的结点个数为
定义学生选修课程的关系模式如下:S(S#,Sn,Sd,Sa)(其属性分别为学号、姓名、所在系、年龄);C(C#,Cn,P#)(其属性分别为课程号、课程名、先选课);SC(S#,C#,G)(其属性分别学号、课号和成绩)。检索选修课程名为“操作系统”的
随机试题
下列几种蒸发器内气液分离装置中,()分离效果最好,阻力降最小。
被誉为“第一部英国现代小说”的作品是
写冯谖烧债券市义后,孟尝君“不说”,这对刻画冯谖形象的作用是
下列关于急性胰腺炎酶学检查的叙述,正确的是()
组成卵磷脂分子的成分有()。
工程监理单位应当依照法律、法规以及有关技术标准、设计文件和建筑工程承包合同,代表建设单位对施工质量实施监理,并对施工质量承担( )责任。
甲施工企业与乙钢材经销商签订了一份购销合同,总货值为80万元人民币,双方在协商定金数额时发生意见分歧。根据《担保法》的规定,该定金额最多为()万元人民币。
期货公司破产或者清算时,()不属于破产财产或者清算财产。
交易者将()结合起来,以此判断价格走势,做出交易决策。
FantasyFlight:ChiakiMukai,Japan’sFirstFemaleAstronautRaisedbyaworkingmotherinGunmaPrefecture,aplaceknownf
最新回复
(
0
)