窗体上有1个名称为List1的列表框。其中有若干列表项,并有下面程序代码: Private Sub List1_DblClick( ) Exchange List1.List1.Listlndex End Sub

admin2020-08-10  33

问题 窗体上有1个名称为List1的列表框。其中有若干列表项,并有下面程序代码:
    Private Sub List1_DblClick(  )
        Exchange List1.List1.Listlndex
    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.RemoveItem Source.ListCount-1
        Source.AddItem ch   
    End Sub   
    程序运行后,双击某个列表项,产生的结果是(        )。

选项 A、被双击的列表项与最后一个列表项互换位置
B、被双击的列表项被删除
C、被双击的列表项移到最前面
D、被双击的列表项移到最后面

答案A

解析 在List1_DblClick过程中调用Exchange过程,并将控件对象List1作为参数传递给Exchange过程,在调用含有对象的过程时,对象是通过传地址的方式进行传递。在Exchange过程中执行如下操作步骤:
第一步:变量k保存List1列表框中已选中表项的位置
第二步:变量ch用来保存被选中列表项的内容
第三步:使用列表框的Removeltem方法将列表框中已选中列表项的内容移除
第四步:通过Addhem方法将列表框最后一项的内容放置于已选中表项的位置
第五步:将列表框的最后一项内容移除
第六步:将第二步中变量ch中保存的内容放置到列表框的最后一项
根据上述操作步骤可知,过程Exchange的功能是当双击列表框中的某一表项时,将该表项内容与最后一项内容进行交换,故A选项叙述正确。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/eqHp777K
0

最新回复(0)