用代码实现：dim strItem() as string,i%,s$'检查列表框是否为空的代码省略redim stritem(list1.listcount)for i=1 to list1.listcountstritem(i)=list1.list(i)next ilist1.clear'排序你自己写吧，用气泡法可以一项项往上提for i=1 to ubound(stritem)list1. 展开
用代码实现：dim strItem() as string,i%,s$'检查列表框是否为空的代码省略redim stritem(list1.listcount)for i=1 to list1.listcountstritem(i)=list1.list(i)next ilist1.clear'排序你自己写吧，用气泡法可以一项项往上提for i=1 to ubound(stritem)list1.addnew stritem(i)next i 收起
