首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序: Private Sub Commandl_Click()
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序: Private Sub Commandl_Click()
admin
2012-09-07
85
问题
窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序:
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.List(k)中从头开始寻找s,找不到则返回0,否则返回s在List1.List(k1中的位置。整个循环体的功能是,从列表框中最后一个列表项开始寻找含有与Text1中输入的字符串相同的子串,如果存在相同的子串,则把List1.List(k)全部连接到str中。
转载请注明原文地址:https://kaotiyun.com/show/7xhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
改变驱动器列表框的Drive属性值将激活_______事件。
下列叙述中,正确的是
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()StaticyAsIntegerClsFori=0To2
设有下面的循环: i=1 Do i=i+3 Printi LoopUntilI>_________ 程序运行后要执行3次循环体,则条件中I的最小值为
以下关于VisualBasic数据类型的说法,不恰当的是
为了定义自己的鼠标光标,首先应把MousePointer属性设置为【】,然后把【】属性设置为一个图标文件。
编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeASInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_KeyPress(K
关系代数中的θ连接操作由()操作组合而成。
要存放如下矩阵的数据,在不浪费存储空间的基础上,能实现声明的语句是123246369
对序列(7,19,24,13,31,8,82,18,44,63,5,29)进行一趟排序后得到的结果如下:(7,18,24,13,5,8,82,19,44,63,31,29),则可以认为使用的排序方法是
随机试题
用显微镜观察细菌时,选用的目镜和物镜的放大倍数越大越好。()
5岁患儿,发现心脏杂音、唇周发绀4年余。活动后突然昏厥、抽搐、意识不清,听诊心脏未闻及杂音,P2明显减弱。该患儿昏厥原因应首先考虑
A.祛风通络,定惊止痉B.祛风通络,活血化瘀C.祛风通络,止血D.祛风通络,凉血止血乌梢蛇的功效是
有关垂体瘤的论述,下列错误的是
简述数据库设计的基本步骤。
已知抛物线y2=2px(p>0),过定点(p,0)作两条互相垂直的直线l1、l2,l1与抛物线交于P、Q两点,l2与抛物线交于M、N两点,l1斜率为k.某同学已正确求得弦PQ的中点坐标为,请写出弦MN的中点坐标:_____________.
警察产生的政治条件是()。
粉笔:黑板:粉末
PeopleknewthenatureofWolfveryWell.WecanfindMoreandMoregreyWolvesinAlaska.
MildweatherhasbroughtJapan’smuch-lovedcherrytreesinto(36)______twoweeksearlythisyear,butnoteveryoneis(37)____
最新回复
(
0
)