在考生文件夹中有一个工程文件sjt4.vbp。窗体上已有控件,如图3-128所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求:双击List1中的某一项时,该项目被添加到List2中,同时在List1

admin2016-01-31  36

问题 在考生文件夹中有一个工程文件sjt4.vbp。窗体上已有控件,如图3-128所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求:双击List1中的某一项时,该项目被添加到List2中,同时在List1中清除该项目。若单击“>>”按钮,List1中所有的项目显示在List2中(List2中已有项目不变),List1中的内容不变。
    要求:按照题目要求设置控件属性,去掉程序中的注释符,把程序中的?改为正确的内容。
   
    注意:不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

选项

答案审题分析 实现本题从列表框Listl到List2的移出功能,其实就是利用列表框的Addltem方法和Removeltem方法添加或删除列表框中的项目。由题中源代码可知,当双击列表框List1中的某项时,则调用Moveltem过程(参数应为控件List1和List2)将列表框IAst1中当前项的内容(索引号为Listlndex)用Addltem方法添加到列表框List2中,同时用。RemoveItem方法从列表框IAst1中删除该项。当单击“>>”按钮时,则调用MoveAll过程通过For循环(循环变量终值为List1.ListCount-1)将列表框List1中的各项逐一添加到列表框List2中。 操作步骤 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: L2.AddItem L1.List(L1.ListIndex) L1.RemoveItem L1.ListIndex For i=0 To List1.ListCount-1 Call MoVeItem(List1,List2) 步骤2:按要求将文件保存至考生文件夹中。 考点链接 选择控件、Sub过程和函数过程、参数传递。

解析
转载请注明原文地址:https://kaotiyun.com/show/7uLp777K
0

最新回复(0)