首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如下图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序。 Private Sub Command 1_Click()
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如下图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序。 Private Sub Command 1_Click()
admin
2012-09-07
34
问题
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如下图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序。
Private Sub Command 1_Click()
Dim str As String,s As String,k As Integer
s=Text1:str=“”
For k=List 1.ListCount-1 To 0 Step-1
If InStr(Listl.List(k),s)>0 Then
str=str&List1.List(k)&“”
EndIf
Nextk
If str“”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中字符串相同的子串,如果存在相同的子串,把List1List(k)全部连接到str中,并显示在Text2中。
转载请注明原文地址:https://kaotiyun.com/show/GChp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在关系运算中,查找满足一定条件的元组的运算称之为【】。
按条件f对关系R进行选择,其关系代数表达式为_________。
下列关于队列的叙述中正确的是_________。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox(“请输入A的值”)a=Val(A
如果要改变窗体的标题,需要设置窗体对象的______属性。
一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的【】。
为了暂时关闭计时器,应把该计时器控件的哪个属性设置为False?
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2,标题分别为空白和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同
下面程序的功能是统计字符串中“广的个数,请填空。 SubCOU( ) a$="BeijingUniversityofTechnology" DimnASInteger n=Len(a$) Fori=1T
常用的关系运算是关系代数和
随机试题
设三元实二次型f(x1,x2,x3)=一2x12+3x22一4x32,则其规范形为()
不属于健康行为的是
按照《民事诉讼法》的规定,法院审理民事案件,在哪些情况下,可以缺席判决?()
根据《企业职工伤亡事故分类标准》(GB6441—1986)规定,下列事故诱因或致害物与事故类别的对应关系,正确的是()
在项目投资假设条件下,从投资企业的立场看,企业取得借款应视为现金流入,而归还借款和支付利息则应视为现金流出。()
资源税纳税人开采或者生产不同税目应税产品的,应当分别核算不同税目应税产品的销售额或者销售数量;未分别核算或者不能准确提供不同税目应税产品的销售额或者销售数量的,()。
租赁合同中引起租赁纠纷的主要原因是()。
国家承担赔偿责任的方式有()。
国产片《英雄》显然是前两年最好的古装武打片。这部电影是由著名导演、演员、摄影师、武打设计师和服装设计师参与的一部国际化大制作的电影。票房收入的明显领先说明观看该部影片的人数远多于进口的美国大片《卧虎藏龙》的人数,尽管《卧虎藏龙》也是精心制作的中国古装武打片
在关系代数运算中,专门的关系运算是()。
最新回复
(
0
)