首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序: Private Sub Commandl_Click() Dim st
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序: Private Sub Commandl_Click() Dim st
admin
2017-06-22
53
问题
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序:
Private Sub Commandl_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.Lisc(k)中从头开始寻找s。找不到则返回0,否则返回s在List1.List(k)的位置。整个循环体的功能是,从列表框中最后一个列表项开始寻找含有与Text1中输入的字符串相同的子串,如果存在相同的子串,则把List1.List(k)全部连接到str中。
转载请注明原文地址:https://kaotiyun.com/show/aDGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=""str
下面叙述正确的是
关闭当前的工程并退出VisualBasic的快捷键是
下列函数调用时弹出的对话框中按钮的个数为【】。MsgBox("程序非法!",vbAbortRetryIgnore,"消息提示:")
在窗体上画一个命令按钮(其名称为Conlmand1),然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4Ifi=1Thenx=iIfi<=4Thenx=
在数据库管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是
下列有关数据库的描述正确的是
设有数组定义语句:Dima(5)AsInteger,List1为列表框控件。下列给数组元素赋值的语句错误的是
设a=2,b=3,c=4,下列表达式的值是______。Nota<=cOr4*c=b^2Andb<>a+C
假设有以下程序段:Fori=1To3Forj=5To1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是______,i的值为______,j的值为______。
随机试题
根据克利夫·鲍曼的“战略钟”理论,下列各项中属于失败战略的是()。
观察肝硬化患者的经过中,虽然没有症状,但谷氨酰转肽酶和碱性磷酸酶逐渐升高,首先应考虑是哪项()。
关于脑出血的治疗描述错误的是
根据《1990年国际贸易术语解释通则》的规定,某一贸易术语卖方承担下列责任、风险和费用:①提供符合合同规定的货物、单证或相等的电子单证;②自负费用及风险办理出口许可证及其他货物出口手续,交纳出口捐、税、费;③依约定的时间、地点,依港口惯例将货物装上买方指定
利润表主要包括以下几个方面内容?()
根据《旅游法》规定,旅游者转让合同中自身权利义务的,应当符合以下要求:()
针对全体女性人口的妇女社会工作的内容包括()。
《边城》是哪位作家的代表作?()
Upuntilafewdecadesago,ourvisionsofthefuturewerelargely—thoughbynomeansuniformly—glowinglypositive.Scienceand
Notlongago,Ihadmyfirston-linechat.Ithoughtitwouldbe【C1】______becauseIhaveheardsomanypeople【C2】______itintha
最新回复
(
0
)