单选题
窗体上有1个名称为L,istl的列表框,其中有若干列表项,并有下面程序代码:…P—rivate Sub Listl—DblClick() Exchange Listl.Listl.ListIndexEnd SubPrivate 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 chEnd Sub程序运行后,双击某个列表项,产生的结果是( )。