首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项,如图3-138(a)所示,单击“选中”按钮则把选中的项目移到List2中;单击“显示”按钮,则在Text1
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项,如图3-138(a)所示,单击“选中”按钮则把选中的项目移到List2中;单击“显示”按钮,则在Text1
admin
2016-01-31
77
问题
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项,如图3-138(a)所示,单击“选中”按钮则把选中的项目移到List2中;单击“显示”按钮,则在Text1文本框中显示这些选中的城市,如图3-138(b)所示。已经给出了所有控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
审题分析 在“选中”按钮的单击事件中,由List1的最后一项依次向前进行遍历判断是否被选中,最后一项的索引值是ListCount-1,第一项的索引值是0,所以应该是反向循环,步长为-1;在循环体中如果该项被选中,则将其加入List2中,同时在List1中删除这一项。 在“显示”按钮的单击事件中,通过一个For循环依次取出List2中的每一项并将其连接到Text1中。 操作步骤 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: For k=List1.ListCount-1 To 0 Step-1 List2.AddItem List1.List(k) List1.RemoveItem k Text1=Text1 & " " & List2.Li8t(k) 步骤2:按要求将文件保存至考生文件夹中。 考点链接 For循环结构、选择控件。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/5uLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
新建一个窗体,其BorderStyle属性设置为FixedSingle,但运行时却没有“最大化”和“最小化”按钮,可能的原因是
下列选项中不符合良好程序设计风格的是
已知数组A(4,4),各个元素在运行程序时被赋值并打印,形成四除非方阵。请在______和______处填写所需的内容,使其产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。例如:111122223333
关系表中的每一横行称为一个
结构化程序所要求的基本结构不包括
下列关于数据库设计的叙述中,正确的是
要将窗体Form1标题设为“学习VB”,以下能正确实现该功能的语句为
在VisualBasic中,要将一个窗体从内存中释放,应使用的语句是
选择循环结构的作用是()。
随机试题
Acreditcardisa【36】ofidentification【37】whichtheownermayobtainconsumercreditforthe【38】ofgoodsorservices【39】thanpa
A、链霉素B、吡嗪酰胺C、乙胺丁醇D、利福平E、异烟肼上述选项中,能引起周围神经炎的是
甲苯法测定水分适合于
氙灯有“小太阳”的美称,其主要特点有()。
决算编制过程中应注意的有()。
背景材料:某桥主墩基础为钻孔灌注桩,地质依次为表层5m的砾石、37m的漂石和软岩。主要施工过程如下:平整场地、桩位放样、埋设护筒,采用冲击钻成孔。下放钢筋笼后,发现孔底沉淀量超标,但超标量较小,施工人员采用空压机风管进行扰动,使孔底残留沉渣处于悬浮状态
丽江坝区纳西族的房屋,普遍采用的形式为()。
5人参加一次小测验,试卷上的10道题目均为4选1的单项选择题,若5个人全部答完所有题目,那么不同的答卷最多有()种。
要想走近历史的“原生态”,首要的是要深入发掘一手的可靠的原始史料,要真正读懂历史文本,在史学分析时也应重视解释、追寻研究对象的原貌,尽可能地不作的评论,不带任何偏见。填入画横线部分最恰当的一项是()。
Whatkindofcarwillwebedrivingin2010?Rather【S1】______fromthetypeweknowtoday,withthenext10yearsbringinggreate
最新回复
(
0
)