首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
2013-10-06
97
问题
窗体上有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/NmQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若完全二叉树共有n个结点,且从根结点开始,按层序(每层从左到右)用正整数0,1,2,…,n-1从小到大对结点编号,则对于编号为k的结点,错误的是______。
在窗体上画一个名称为CommonDialog1的通用对话框和一个名为Command1的命令按钮。要求实现这样一个功能:单击命令按钮后,打开一个通用对话框用于保存文件,其窗口标题为“保存”,默认文件名为Data,在“文件类型”栏中显示*.txt。下列程序中能
单击命令按钮,并在对话框内依次输入99,73,84,88,-1,下列程序段的执行结果为______。PrivateSubCommand1_Click()DimSAsSingle,maxAsSingle,minAs
要运行VB的程序,可以按【】键。
单击一次命令按钮之后,窗体中的输出结果为______。PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=10b=
下列Sub过程中描述错误的是______。
在软件工程中,白箱测试法可用于测试程序的内部结构。此方法将程序看做______。
下列语句的输出结果是【】。PrintInt(12345.6789*100+0.5)/100
请定义一个用户自定义类型,类型名为Teacher,有三个成员:教师名(No,长整型)、姓名(name,8个字符组成的字符串)、年龄(age,整型)。类型定义形式为【】。
在运行过程中,要将某窗体设置为不可见,可以设置窗体的______属性。
随机试题
关于质量管理体系的ISO9000族国际标准发布于______。
行宫见月伤心色,夜雨闻铃肠断声。行宫:
急性缺氧时机体呼吸、循环有哪些代偿反应?
手术切除恶性肿瘤的正确做法是
刘某、赵某、黄某、张某四人合伙成立一家金属冶炼公司,该公司董事长由最大的股东刘某担任,但刘某因生病长期休养,并不直接参与公司生产经营活动;公司总经理由赵某担任,全面负责生产经营活动;黄某担任冶炼车间主任,负责车间日常生产管理;张某担任公司工会主席。根据《安
不属于总监理工程师基本职责的有()。
商品房符合()条件可以预售。
如图,二面角α—l—β的大小是60°,线段ABα,B∈l,AB与l所成的角为30°,则AB与平面β所成的角的正弦值是__________.
某出租车司机因为违章被某公安机关交警部门吊销了驾驶执照。该司机认为处罚过重,并且给其造成了经济损失,其可以依法()。
ConversationalSkills1.Skilltoaskquestionsa)Beawareofthehumannature:readinesstoanswerothers’questionsr
最新回复
(
0
)