首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时,选中Listl中若干个列表项(如图l所示),单击“选中”按钮则把选中的项目移到List2中,单击“显示”,则在Textl文本框中显示这些
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时,选中Listl中若干个列表项(如图l所示),单击“选中”按钮则把选中的项目移到List2中,单击“显示”,则在Textl文本框中显示这些
admin
2020-04-08
51
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
能够用于标识对象名称的属性是()。
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于( )。
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1Click() Dima&,s&,k& s=1 a=2 Fork=2To10
下列控件中,没有Caption属性的是( )。
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3
结构化程序所要求的基本结构不包括()。
下列打开“代码窗口”的操作中错误的是()。
运行如下程序:PrivateSubCommandl_Click()Dima(5,5)AsIntegerF0ri=1To5Forj=1To4a(i,j)=i*2+JIfa(i,
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是()。
随机试题
王某今年17周岁,在市畜牧局工作。依照我国民法的规定,王某属于()
可行关节成型或置换术的是
企事业单位违反《消防法》的下列情形中,应当给予责令改正,处5000元以上5万元以下罚款的有()。
斜坡堤砂垫层施工的质量要求,顶面宽度不小于设计宽度,每侧超宽不大于(),当有基槽时不超出已挖基槽宽度。
具有一定技术装备的综合运输网及其结合部系统是综合运输体系的物质基础。()
京房六十律:
①其中包括他们的肤色、相貌、身材、线条、姿态、气质、风度等许多方面②这样的美,才是广大女性更加向往、追求和渴望的③真正的女性美,应该是结实、精干、肌肉强健,富有区别于男子的特有曲线美④越来越多的人们现在都倾向于认为:现代女性人
Inthissection,youwillheararadiotalk.Thetalkwillbereadonlyonce.Forquestions21-30,completethenoteswhichsum
Thebusinessmemo(备忘录)isprobablythemostfrequentlyusedcommunicationwithinacompany.Itiscalledanintra-companycommun
AsagroupofyoungAfricanimmigrantsstrugglestoadapttolifeintheUnitedStates,anafter-schooldramaprogramatWhiteO
最新回复
(
0
)