首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
62
问题
窗体上有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全国计算机二级
相关试题推荐
下列叙述中正确的是()。
在窗体上建立通用对话框需要添加的控件是()。
程序的3种基本控制结构是
下面叙述中不正确的是______。
如果文本框的Locked属性设置为True,则下列说法正确的是()。
在文本框中输入字符时,通过()事件过程可以得到字符的ASCII码值。
VisualBasic根据计算机访问文件的方式将文件分成3类,其中不包括()。
执行下面程序,第一行输出结果是【】,第二行输出结果是47。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2
一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的【】。
设计一个计时程序。该程序用户界面如图所示,由一个文本框(Text1)、两个按钮:命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后,单击开始按钮,则开始计时,文本框中显示秒数,单击停止按钮,则计时停止。单击窗口则退出。请在【
随机试题
无级变速即传动比可任意调节的一种变速方式。()
Mr.andMrs.Smitharesoexcitedtoday,fortheybought______yesterday.
A.九味羌活汤B.参苏散C.新加香薷饮D.再造散E.败毒散外感风寒湿邪,内有蕴热者,可选用
霍乱弧菌为
栓剂的附加剂包括抗氧剂、防腐剂、硬化剂、乳化剂、着色剂、增稠剂、吸收促进剂及黏合剂。()
我国细粒棘球蚴感染率最高的动物是()
下列表述中何者为影响法官内部独立的行为?
甲公司2016年度为其第一个营业年度,企业只生产一种产品,其制造成本的成本习性方程为y=3000+1500x(x为产量),2016年实际生产的产量为100万件,此外固定性销售与管理费用为200万元,变动销售费用为每件100元。该公司2016年销售80万件,
某报在一篇新闻报道中披露了未成年人甲是乙的私生子,致使甲备受同学的嘲讽和奚落,甲因精神痛苦,自残左手无名指,从而给甲的学习和生活造成重大影响。按照我国现行法律规定,对该报的行为应认定为()。
若有以下定义:structlink{intdata;strnctlink*next;}a,b,c,*p,*q;且变量a和b之间已有如下图所示的链表结构:指针p指向变量a,q指向变量c。则能够
最新回复
(
0
)