首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个名称为List1的列表框,输入若干个项目;再画两个文本框,名称分别为Text1和Text2,如图所示。编写如下事件过程: Private Sub Form_Load() Text1.Text="" Text2.Tex
在窗体上画1个名称为List1的列表框,输入若干个项目;再画两个文本框,名称分别为Text1和Text2,如图所示。编写如下事件过程: Private Sub Form_Load() Text1.Text="" Text2.Tex
admin
2016-08-24
85
问题
在窗体上画1个名称为List1的列表框,输入若干个项目;再画两个文本框,名称分别为Text1和Text2,如图所示。编写如下事件过程:
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
End Sub
Private Sub Text1_Change()
Dim str As String.S As String
Dim k As Integer,n As Integer
S=Text1.Text
str=""
n=List1.ListCount-1
For k=n 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.Text="无匹配项目"
Else
Text2.Text=str
End If
End Sub
运行程序,在Text1中输入“海”,则在Text2中显示的内容是( )。
选项
A、上海南海东海
B、海
C、东海南海上海
D、无匹配项目
答案
A
解析
在Text1中输入“海”,则17extl_Change事件被触发,在Text1_Change事件过程中,定义了字符串变量str和s;整型变量k和m。s的初始值为Text1上输入的字符串“海”,str的初始值为空,整型变量n的初始值为List1中的元素个数,为5。然后程序进入For循环结构,通过Instr函数,判断变量s中的字符在List1列表项中是否出现,若出现则将列表框中的匹配项保留到字符串变量str中。最后通过If语句判断字符串变量str中是否有值,若有值,则在Text/中显示str中的内容,若无值,则在Text2中显示“无匹配项”。
For循环共执行5次,循环执行情况及各变量的值如下表所示。
所以A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/naLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
图像框控件使用系统资源比图片框______。
在窗体上添加一个文本框,名为text1,然后编写如下的load事件过程,则程序的运行结果是()。PrivateSubForm_Load Text1.Text="" Text1.SetFocus Fork
下列各种形式的循环中,输出“*”的个数最少的循环是()。
按“先进后出”原则组织数据的数据结构是______。
下列叙述中正确的是()。
如果将文本框的Locked属性设置为True,则以下说法()是正确的。
设x是小于10的非负数。对此陈述,以下正确的VB表达式是
软件生命周期中的活动不包括
在软件开发中,需求分析阶段产生的主要文档是()。
在面向对象程序设计中,从外面看只能看到对象有外部特征,而不知道也无须知道数据的具体结构以及实现操作的算法,这称为对象的______。
随机试题
构成硬腭的骨性支架为
为患者行大量不保留灌肠,当患者有便意时,处理方法为
患者,女性,38岁。孕2产1,2年前产钳分娩,长时间站立、下蹲后腰背酸痛有下坠感,清洗外阴可及一肿物。妇科检查:可看见宫颈已脱出阴道口,宫体仍在阴道内。护士指导患者盆底肌肉组织锻炼的方法为
权属调查的技术总结主要内容包括:权属调查的实施方案及技术路线;界标设置方法;界址边长及关系距离的丈量方法;();地籍调查表的填写要求。
受扭实心等直圆轴,当直径增大一倍时,其最大切应力τ2max和两端相对扭转角φ2与原来的τ1max和φ1的比值为()。
企业所得税的税率为()。
Sinceacirclehasnobeginningorend,theweddingringisacceptedasasymbolof______love.
[*]
关于RSA算法的叙述,不正确的是______。A.RSA算法是一种对称加密算法B.RSA算法的运算速度比DES慢C.RSA算法可用于某种数字签名方案D.RSA的安全性主要基于素因子分解的难度
Forcenturiesmandreamedofachievingverticalflight.In400A.D.Chinesechildren【S1】______withafan-liketoythatspunup
最新回复
(
0
)