首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。 Private Sub Command 1 Click()
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。 Private Sub Command 1 Click()
admin
2016-01-22
104
问题
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。
Private Sub Command 1 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(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(List1.List(k),s)的作用是在Lisf1.List(k)中从头开始寻找s,找不到就返回0,否则返回s在List1.List(k)中的位置。整个循环的功能是,从列表框中最后一个列表项开始寻找含有与Text1中字符串相同的子串,如果存在相同的子串,把List1.List(k)全部连接到str中,并显示在Text2中。
转载请注明原文地址:https://kaotiyun.com/show/LwLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序弹山对话框中按钮的个数为______。MsgBox"确认!",vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,"提示"
如果A为整数且,|A|>=10,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是()。
下列数据结构中,属于非线性的是()。
假定有一个菜单项,名为Menuhem,为了在运行时使该菜单项失效(变灰),应使用的语句为
耦合和内聚是评价模块独立性的两个主要标准,其中______反映了模块内各成分之间的联系。
表达式Right("Beijing",4)的值是()。
下面叙述中正确的是______。
下列叙述中正确的是()。
表达式5Mod3+3\5*2的值是()。
随机试题
简述配送中心规划的主要内容。
有关吸入麻醉药描述错误的是
有关呼吸困难的叙述,正确的是
初孕妇,妊娠36周,无痛性阴道少量出血,无贫血外观,血压120/80mmHg,臀位,先露浮,胎心率:132次/分。双顶径8.4cm。该病例恰当的处理是
企业用银行存款900万元直接购买无形资产,这项业务引起企业会计要素变动的是()。
2012年11月,薛某将其自有的房屋无偿赠与其外孙女杨某,则杨某应按规定缴纳个人所得税。()
根据增值税法律制度的规定,一般纳税人支付的下列运费中,不允许计算进项税额抵扣的是()。
根据民事法律制度的规定,对始终不知道自己权利受侵害的当事人,其最长诉讼时效期间是()。
下列各句没有错别字的一项是()。
简述法律关系主体的权利能力和行为能力。
最新回复
(
0
)