首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时,选中Listl中若干个列表项(如图l所示),单击“选中”按钮则把选中的项目移到List2中,单击“显示”,则在Textl文本框中显示这些
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时,选中Listl中若干个列表项(如图l所示),单击“选中”按钮则把选中的项目移到List2中,单击“显示”,则在Textl文本框中显示这些
admin
2020-04-08
60
问题
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时,选中Listl中若干个列表项(如图l所示),单击“选中”按钮则把选中的项目移到List2中,单击“显示”,则在Textl文本框中显示这些选中的城市(如图2所示)。已经给出了所有控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
【操作步骤】 步骤l:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Commandl~C1ick() Dim k% For k=Listl.ListCount一1 To 0
Step-1
′k从最大到0,则步长应为一1 If Listl.Selected(k) = True Then L1St2. AddItem
Listl.List(k)
添加项到List2中 Listl.RemoveItem
k
′通过下标删除Listl中的项目 End If Next k End Sub Private Sub Command2_C1ick() Dim k% Textl="已经选中的城市有:" For k=0 To LiSt2.LiStCount一1 Step 1 Textl=
Textl.Text
&""&List2. List(k) ′将List2中的项目连接在Textl中的内容之后 Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Selected属性是一个与List数组中的各个元素相对应的一维数组,记录List数组中每个项目是否被选取。例如,如果List(1)被选取,则Selected(1)的值为True,如果List(1)未被选取,则Selected(1)的值为False。List属性是一个一维数组,数组中元素的值就是在执行时看到的列表项。设计时可以在属性窗口中通过List属性来建立列表项,运行时对List数组从0到ListCount—l依次取值,可以获得列表的所有项目。通过对Selected属性返回值的判断,可以得知列表项是否被选中,从而进行删除和添加操作。
转载请注明原文地址:https://kaotiyun.com/show/CNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
PrintRight(”VBProgramming”,2)语句的输出结果是()。
窗体上的三个命令按钮构成名称为Command1的控件数组。如图所示。程序如下:PrivateSubCommand1_Click(IndexAsInteger) IfIndex=1Then Print"计算机等级考试" En
结构化程序所要求的基本结构不包括()。
有人在属性窗口中通过设置Picture属性为命令按钮装入了图片,但没有显示,其原因是
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
以下能够设置控件焦点的方法是( )。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是()。
如果将命令按钮的访问键设置为"D",以下不会触发命令按钮Click事件的操作是
有两个关系R与S如下,由关系R和S得到关系T,则所使用的操作为
随机试题
审判权
彩色显示器的彩色是由三基色合成而得到的。某显示器的三基色R、G、B分别用5位二进制数表示,则它可以表示________________种不同的颜色。
不属于前肢的主要肌肉的是()。
证券公司总经理依据《公司法》、公司章程的规定行使职权,并向股东会负责。( )
D公司只生产一种产品,采用标准成本法计算产品成本,期末对材料价格差异采用“调整销售成本与存货法”进行处理,将材料价格差异按照数量比例分配至已销产品成本和存货成本,对其他标准成本差异采用“结转本期损益法”进行处理。7月份有关资料如下:(1)公司生产
诚然,在相当长一段时间里,对抗或叛逆确实是中国当代诗歌完成自我________的法则之一。以真实取代虚假,以个人反抗群体,以感性抵制理性,以平面消除深度,中国当代诗歌正是在这种不断的反叛中实行着某种________。填入横线部分最恰当的一项是()
在进行教师培训时,认为“技术优先”的是()。
张家有甲、乙、丙三兄弟,甲幼年时被送给赵某作养子。甲结婚时,赵某为其盖了新房,后因失火导致该房屋被烧毁。甲的生母就将其住房腾出一间让甲夫妇及赵某居住。不久,甲的生母病故,对于甲的生母的遗产,有继承权的是()。
录音录像制作者使用他人()制作录音录像制品,应当取得著作权人许可,并支付报酬。
李明智力超群,为某歌舞团演员,生活可以自理。李明15岁时曾作为其同事王宏(成年人且精神正常)的委托代理人与某商场签订过一份买卖办公器材的合同;李明16岁零1个月时曾与张阳签订过一份买卖电脑的合同,内容是李明用1万元购买张阳所卖的一台笔记本电脑。问:李明
最新回复
(
0
)