2. 计算机
  3. 考生文件夹下有工程文件sit3．vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。程序运行时的功能是，当单击“选择课程”按钮时，如果在Listl列表框中没有选中任何列表项，则程序跳出当前过程；如果在List1列表框中有一至多个列表项被选中时，

考生文件夹下有工程文件sit3．vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。程序运行时的功能是，当单击“选择课程”按钮时，如果在Listl列表框中没有选中任何列表项，则程序跳出当前过程；如果在List1列表框中有一至多个列表项被选中时，

admin2019-08-21  35
问题 考生文件夹下有工程文件sit3．vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。程序运行时的功能是，当单击“选择课程”按钮时，如果在Listl列表框中没有选中任何列表项，则程序跳出当前过程；如果在List1列表框中有一至多个列表项被选中时，则依次分别将其加入到右侧的List2列表框中，并同时从List1中删除。下图所示的是某次操作结果的示意图。

    程序已经给出，但不完整，请将其中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
选项
答案步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释“’”，将问号改为正确的内容。 参考答案(画横线部分是需要填入的内容) Private Sub Command1_Click() Dim i As Integer If List1．SelCount=0 Then Exit Sub End If i=0 Do While i＜=List1．ListCount－1 If List1．Selected(i)=True Then List2．AddItem(List1．List(i) ) List1．Removehem(i) Else i=i+1 End If Loop End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 SelCount属性用于统计List1列表框中共有几个列表项被选中。例如，List1．SelCount=2表示有两个被选中的列表项，List1．SelCount=0表示未有列表项被选中。List是一个一维数组，数组中的值就是在执行时看到的列表项。设计时可以在属性窗口中通过List属性建立列表项，运行时对List数组从0到ListCount－1依次取值，可以获得所有项。Selected属性是一个与List数组中的各个元素相对应的一维数组，记录List数组中每个项目是否被选中。例如，List(1)被选中，则Selected(1)=True，否则Selected(1)=False。通过对Selected属性返回值的判断，得知列表项是否被选中，从而进行添加操作。
转载请注明原文地址:https://kaotiyun.com/show/YdUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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