vb列表框 排序

最简单的就是设置 List2.Sorted = True 直接拷贝list1内容到list2就行了 由小到大排序 想反过来就逆序拷贝

Option Explicit

'声明你要加添加的最小和最大数字(数值范围)
Const MINVALUE = 1
Const MAXVALUE = 100
'要添加多少个
Const NUM = 10

'窗体载入时随机生成数字添加到list1
Private Sub Form_Load()
Dim i As Long
For i = 1 To NUM
List1.AddItem Int((MAXVALUE - MINVALUE + 1) * Rnd + MINVALUE)
Next
End Sub

'单击按键将list1的数据排序加入list2
Private Sub Command1_Click()
Dim lngSort(MINVALUE To MAXVALUE) As Long
Dim i As Long
Dim n As Long
List2.Clear
'读取list1的数据并用lngSort统计
For i = 0 To List1.ListCount - 1
n = List1.List(i)
lngSort(n) = lngSort(n) + 1
Next
'顺序添加到list2中
For i = MINVALUE To MAXVALUE
'这是升序，降序:for i= MAXVALUE to MINVALUE step -1
While lngSort(i) > 0
List2.AddItem i