首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Textl、Text2,1个名称为Commandl的命令按钮,并有以下程序。 Private Sub Commandl_Click( ) Dim
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Textl、Text2,1个名称为Commandl的命令按钮,并有以下程序。 Private Sub Commandl_Click( ) Dim
admin
2019-06-20
52
问题
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Textl、Text2,1个名称为Commandl的命令按钮,并有以下程序。
Private Sub Commandl_Click( )
Dim str As String,S As String,k As Integer
s=Textl:str=““
For k=List 1.ListCount-1 To 0 Step-l
If InStr(List 1.List(k),s)>0 Then
str=str&Listl.List(k)&”“
End If
Nextk
Ifstr=““Then
Text2=“没有匹配项目”
Else
Text2=str
EndIf
EndSub
程序运行时,在Textl中输入”京”,单击命令按钮,则在Text2中显示的内容是( )。
选项
A、京
B、北京南京
C、南京北京
D、没有匹配的项目
答案
C
解析
考查循环程序的分析以及列表框属性的应用。函数InStr(Listl.List(k),s)的作用是在Listl.List(k)中从头开始寻找s,找不到就返回0,否则返回s在Listl.List(k)中的位置。整个循环的功能是,从列表框中最后一个列表项开始寻找含有与Textl中字符串相同的子串,如果存在相同的子串,把Listl.List(k)全部连接到str中,并显示在Text2中。
转载请注明原文地址:https://kaotiyun.com/show/8vUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp。程序功能如下:1)单击“读数据”按钮,从文件中读出数据,放入二维数组a中。2)单击“生成新数组”按钮时,依据a数组生成b数组;若a数组元素为素数,则直接将a数组元素的值赋给b数组中相同下标的数组元素;若a数
要建立一个随机文件记录学生的信息,如下定义的学生记录类型,由学号、姓名和5门课程成绩(百分制)组成,下列的定义正确的是()。
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4):j=1Fori=4To1Step-1s=
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中
在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是
下列数据结构中,属于非线性结构的是
在一棵二叉树上,第5层的结点数最多是()。
算法的空间复杂度是指()。
随机试题
A.国家药品监督管理部门B.省级药品监督管理部门C.省以上药品监督管理部门D.设区的市药品监督管理部门E.直辖市设的县药品监督管理部门负责组织GSP认证
已知单代号网络计划中某工作ES=4d,EF=6d,LS=7d,LF=9d,则该工作的总时差为( )d。
如果公式中使用了相对引用的单元格,当公式被复制到同一工作表的其他位置时,公式的值不变。()
下列关于统计数据收集和分析的各项表述中,( )是不准确的。
下列哪种情况属于超卖状态?( )
根据保险法律制度的规定,下列属于保险人可以单方解除合同的情形有()。
大学规章规定了两个管理机构的权力:理事会——由大学所有在世的校友组成——拥有对有关章程事务的权力;以及由20名成员组成的评议会,通过投票以多数方式决定日常事务。一个新的建议提出,评议会可经全体一致的投票而改变大学章程。假如上面的语句是正确的,基于
在考生文件夹下有一个数据库文件“samp3.accdb”,其中存在已经设计好的表对象“tAddr”和“tLIser”,同时还有窗体对象“fEdit”和“fEuser”。请在此基础上按照以下要求补充“fEdit”窗体的设计。将窗体中名称为“Lremark
Studyhard,______youwillfailinthefinalexamination.
Hooperstartedthecarand______itoutoftheparkingplace.
最新回复
(
0
)