Question

VB中如何对list中数据进行排序

就是输入一组数字 然后从大到小进行排序

Answer 1

百度一下吧

Answer 2

加另一个list用于显示结果

Dim A() As Integer
Private Sub Command1_Click()

For j = 1 To List1.ListCount
ReDim Preserve A(j) As Integer
A(j) = List1.List(j - 1)
Next
For i = 1 To List1.ListCount - 1
For j = 1 To List1.ListCount - 1
If A(j) < A(j + 1) Then
temp = A(j + 1)
A(j + 1) = A(j)
A(j) = temp
End If
Next j
Next i
For j = 1 To List1.ListCount
List2.AddItem A(j)
Next
End Sub