对list数据进行排序

来源：百度知道 编辑：UC知道 时间：2024/07/02 20:54:08
在list中有一些数据.我需要得到list中最小的一个数.并得到他在list中的位置.用VB应该怎么写

Private Sub Command1_Click()
Dim i As Integer, b As Integer
b = 0
For i = 0 To List1.ListCount - 1
If CSng(List1.List(b)) > CSng(List1.List(i)) Then b = i
List1.ListIndex = b
Next i
Print "最小数为:" & List1.List(b);
Print: Print "Index为:" & List1.ListIndex
End Sub

Private Sub Form_Load()
List1.AddItem "11"
List1.AddItem "12"
List1.AddItem "3"
List1.AddItem "4"
List1.AddItem "5"
End Sub