首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名为List 1的列表框,其中已经输入了若干个项目(如图3所示); 还有2个文本框,名称分别为Text1、Text2,1个名称为Command 1的命令按钮,并有以下程序: Private Sub Command 1 Click() Dim
窗体上有1个名为List 1的列表框,其中已经输入了若干个项目(如图3所示); 还有2个文本框,名称分别为Text1、Text2,1个名称为Command 1的命令按钮,并有以下程序: Private Sub Command 1 Click() Dim
admin
2015-05-30
52
问题
窗体上有1个名为List 1的列表框,其中已经输入了若干个项目(如图3所示);
还有2个文本框,名称分别为Text1、Text2,1个名称为Command 1的命令按钮,并有以下程序:
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(List 1.List(k),s)>0 Then
str=str&List 1.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(List 1.List(k),s)语句的作用是在List 1.List(k)中从头开始寻找s,找不到则返回0,否则返回s在List 1.List(k)中的位置。整个循环体的功能是,从列表框中最后一个列表项开始寻找含有与Text1中输入的字符串相同的子串,如果存在相同的子串,则把List 1.List(k)全部连接到str中。
转载请注明原文地址:https://kaotiyun.com/show/A3Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设在工程中定义了如下类型:TypestutypeinoAsIntegerstmameAsString*20strsexAsString*1smarkAsSingle
在窗体上建立通用对话框需要添加的控件是()。
在窗体上画两个单选按钮,名称分别为Option1和Option2,标题分别为“黑体”和“楷体”;一个复选框,名称为Check1,标题为“粗体”。要求程序运行时,“黑体”单选按钮和“粗体”复选框被选中,则能够实现上述要求的语句序列是()。
如果在c盘当前文件夹下已存在名称为studata.dat的顺序文件,那么执行语句Open"c:\studata.dat"ForAppendAs#1之后,将
为了定义自己的鼠标光标,首先应把MousePointer属性设置为【】,然后把【】属性设置为一个图标文件。
下列叙述中不正确的是()。
如果文本框的Locked属性设置为True,则下列说法正确的是()。
下列叙述菜单设计的语句中正确的是()。
下面程序运行后,窗体中显示【】。PrivateSubCommand1_Click)()aS="*":b$="$"Fork=1To3x$
成本效益分析的目的是从【】角度评价开发一个项目是否可行。
随机试题
简述涉他合同的概念与内容。
腰椎间盘突出常见的临床症状是
根据《招标投标法》规定,由两个以上勘察单位组成的联合体投标,应按下列()项确定资质等级。
在确定抽样方案时,为保护使用方的利益,应首先考虑()。
以下古代宫殿建筑中,属于汉代的有()。
承担民事责任的方式不包括()。
冷漠:冷酷:热情
下列叙述中,正确的是
ForcenturiesinSpainandLatinAmerica,headinghomeforlunchandasnoozewiththefamilywassomethinglikeanationalrig
Aparadoxofeducationisthatpresentinginformationinawaythatlookseasytolearnoftenhastheoppositeeffect.Numerous
最新回复
(
0
)