2. 计算机
  3. 窗体上有1个名称为L,istl的列表框，其中有若干列表项，并有下面程序代码： …P—rivate Sub Listl—DblClick() Exchange Listl．Listl．ListIndex End Sub Private Sub Exc

窗体上有1个名称为L,istl的列表框，其中有若干列表项，并有下面程序代码： …P—rivate Sub Listl—DblClick() Exchange Listl．Listl．ListIndex End Sub Private Sub Exc

admin2018-12-20  69
问题 窗体上有1个名称为L,istl的列表框，其中有若干列表项，并有下面程序代码：
…P—rivate Sub Listl—DblClick()
    Exchange Listl．Listl．ListIndex
End Sub
Private Sub Exchange(Source As ListBox，k As Integer)
    k％=Source．ListIndex
    ch=Source．List(k)
    Source．RemoveItem k
    Source．AddItem Source．List(Source．ListCount一1)，k
    Source．Removeltem Source．ListCount一1
    Source．Addltem ch
End Sub
程序运行后，双击某个列表项，产生的结果是(    )。
选项 A、被双击的列表项与最后一个列表项互换位置
B、被双击的列表项被删除
C、被双击的列表项移到最前面
D、被双击的列表项移到最后面
答案A
解析 在List1一DblCliek过程中调用Exchange过程，并将控件对象List1作为参数传递给Exchange过程，在调用含有对象的过程时，对象是通过传地址的方式进行传递。在Exchange过程中执行如下操作步骤：
第一步：变量k保存Listl列表框中已选中表项的位置
第二步：变量ch用来保存被选中列表项的内容
第三步：使用列表框的Removehem方法将列表框中已选中列表项的内容移除
第四步：通过AddItem方法将列表框最后一项的内容放置于已选中表项的位置
第五步：将列表框的最后一项内容移除
第六步：将第二步中变量ch中保存的内容放置到列表框的最后一项
根据上述操作步骤可知，过程Exchange的功能是当双击列表框中的某一表项时，将该表项内容与最后一项内容进行交换，故A选项叙述正确。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/MVFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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