首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项,如图3-138(a)所示,单击“选中”按钮则把选中的项目移到List2中;单击“显示”按钮,则在Text1
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项,如图3-138(a)所示,单击“选中”按钮则把选中的项目移到List2中;单击“显示”按钮,则在Text1
admin
2016-01-31
31
问题
在考生文件夹下有一个工程文件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://kaotiyun.com/show/5uLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
新建一个窗体,其BorderStyle属性设置为FixedSingle,但运行时却没有“最大化”和“最小化”按钮,可能的原因是
下列子过程语句中正确的是()。
系统符号常量的定义可以通过______获得。
下列有关数据库的描述,正确的是______。
设有如下程序段:a$="BeujingShanghai"b$=Mid(a$,Instr(a$,"g")+1)。执行上面的程序段后,变量b$的值为______。
欲打开各种VisualBasic窗口或显示工具栏,其对应的菜单命令均放置于主菜单项______。的下拉菜单中。
设有如下的用户定义类型:TypeStudentnumberAsStringnameAsStringageAsIntegerEndType则以下正确引用该类型成员的代码是()。
以下关于函数过程的叙述中,正确的是()。
下列叙述中,不属于软件需求规格说明书的作用的是
随机试题
下列各句中,加点的成语使用恰当的一句是()
本案中,由于该案件涉及县人民法院院长,因此,关于本案的管辖,下列说法正确的是:假设张某在人民检察院立案侦查期间自杀身亡,此时县人民检察院可以如何处理此案?
关于质量监督机构在工程竣工阶段质量监督工作的说法,正确的有()。
一般来说,弹性较小的理财目标有()。
下列各项中,关于企业无法查明原因的现金溢余,经批准后会计处理表述正确的是()。
下列关于企业风险管理内涵的说法中,错误的是()。
A、 B、 C、 D、 B第一组图中,最外层的“U”型框的开口方向各不相同,分别为上、下、右,第二组图规律相同,由此排除C和D。再看“U”型框内部的线条数,第一组图中为O、2、1,各不相同,第二组图规律相同,
根据《劳动法》的规定和劳动关系的性质,下列纠纷属于劳动争议的是()。
下列关于光纤同轴电缆混合网HFC的描述中,错误的是()。
A、Inaboutfourdays.B、Abouttwoweeksfromnow.C、Infourweeks.D、Shehasn’tdecidedyet.B
最新回复
(
0
)