首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个List1列表框,并有如图所示的5个项目,还有一个Text1文本框和一个Command1命令按钮,并编写了如下程序代码: Private Sub Command1_Click() Dim ch As String ch =
在窗体上有一个List1列表框,并有如图所示的5个项目,还有一个Text1文本框和一个Command1命令按钮,并编写了如下程序代码: Private Sub Command1_Click() Dim ch As String ch =
admin
2020-02-27
53
问题
在窗体上有一个List1列表框,并有如图所示的5个项目,还有一个Text1文本框和一个Command1命令按钮,并编写了如下程序代码:
Private Sub Command1_Click()
Dim ch As String
ch = ""
For k = 0 To List1.ListCount - 1
If Left(List1.List(k), Len("数据")) = "数据" Then
List1.RemoveItem k
End If
Next k
For k = List1.ListCount - 1 To 0 Step -1
ch = ch & List1.List(k)
Next k
Text1 = ch
End Sub
程序运行时单击命令按钮后,在文本框中显示的是
选项
A、程序设计计算机原理网络程序设计
B、网络程序设计计算机原理程序设计
C、程序设计数据结构计算机原理数据库原理网络程序设计
D、网络程序设计数据库原理计算机原理数据结构程序设计
答案
B
解析
程序主要是将列表框项目中,前两个字是"数据"字符的字符串删除,并将剩余项按从下往上的顺序,连接成一个新字符串,并显示在文本框中。 Left(List1.List(k),Len("数据"))="数据",这一语句是判断列表框中的项前两个字是否是"数据",如果是,从列表框移除。然后,利用For循环,按照从下往上的顺序,将列表项的字符串连接起来。由题可知,项目中数据结构和数据库原理两个项的前两个字是"数据",故将其删除。列表框项从下往上的顺序依次为网络程序设计、计算机原理和程序设计。将这三个字符串连接起来,并显示在文本框中,选项B正确。
转载请注明原文地址:https://jikaoti.com/ti/mmx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某带链的队列初始状态为front=rear=NULL。经过一系列正常的入队与退队操作后,front=rear=10。该队列中的元素个数为()。
下列程序段的输出结果是()。x=5Printx+1;x+1
以下关于命令按钮的叙述中正确的是()。
以下不能用形状控件画出的图形是()。
在软件开发中,需求分析阶段可以使用的工具是()。
窗体上有1个名称为Commandl的命令按钮,能够使其向左移动100的语句是()。
下列VisualBasic函数中,计算结果为字符串型的是()。
若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是()。
表达式4+5\6*7/8Mod9的值是()。
在E—R图中,用来表示实体联系的图形是()。
随机试题
一个密闭的容器,当其内部和外部承受流体的压力时称压力容器。
某校有一名初中生,其特点是:情绪发生慢,心理平衡,善于克制忍让,生活有规律,爱思考,喜独居,内心少外露,注意力不易转移,做事心细,认真、仔细、谨慎,习惯做熟悉的工作,适应新环境慢,接受新事物慢。问题:根据上述特征,判断该生的气质类型,并提出相应的
胎方位是指
患儿孕30周,早产,测体温35℃,全身皮肤呈暗红色或苍白色,伴水肿,触有硬橡皮样,指压呈凹性,该患儿是发生()
现行规范规定,数字正射影像图产品标记内容的顺序为()。
由总包单位或安装单位采购的设备,在采购前要向( )提交设备采购方案,经审查同意后方可实施。
根据资料,回答下列问题。2010年,江苏省全年粮食总产量达3235.1万吨,比上年增加5万吨;其中夏粮1105.3万吨,增长0.2%;秋粮2129.8万吨,增长0.1%。全年粮食面积为528.2万公顷,比上年增加1.0万公顷;棉花面积为23.6万
《学记》
TheruleslaidthefoundationforamajorArestructuringingaspipelineoperationsbyrequiringpipelinestochargeBseparately
Whichofthefollowingpastparticiples(过去分词)isusedasanadverbialofCAUSE?
最新回复
(
0
)