2. 计算机
  3. 在考生文件夹下有一个工程文件sjt4．vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时，选中Listl中若干个列表项(如图l所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Textl文本框中显示这些

在考生文件夹下有一个工程文件sjt4．vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时，选中Listl中若干个列表项(如图l所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Textl文本框中显示这些

admin2020-04-08  61
问题 在考生文件夹下有一个工程文件sjt4．vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时，选中Listl中若干个列表项(如图l所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Textl文本框中显示这些选中的城市(如图2所示)。已经给出了所有控件和程序，但程序不完整。
    要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案【操作步骤】 步骤l：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Commandl～C1ick() Dim k％ For k=Listl．ListCount一1 To 0Step－1 ′k从最大到0，则步长应为一1 If Listl．Selected(k) = True Then L1St2． AddItem Listl.List(k)添加项到List2中 Listl．RemoveItemk ′通过下标删除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://www.kaotiyun.com/show/CNTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)