vb选择排序算法写一个 50个数的从大到小排序 谢谢了 !

要排序的数据要先放在一个数组里

'选择排序法
Private Function SelectionSort(ArrayToSort() As String) As Boolean
Dim OuterLoop As Long, InnerLoop As Long
Dim LowValue As Long, HoldValue As String

For OuterLoop = LBound(ArrayToSort) To (UBound(ArrayToSort) - 1)
LowValue = OuterLoop
For InnerLoop = (OuterLoop + 1) To UBound(ArrayToSort)
If ArrayToSort(InnerLoop) < ArrayToSort(LowValue) Then
LowValue = InnerLoop
End If
Next InnerLoop
HoldValue = ArrayToSort(LowValue)
ArrayToSort(LowValue) = ArrayToSort(OuterLoop)
ArrayToSort(OuterLoop) = HoldValue
Next OuterLoop
SelectionSort = True
End Function

用冒泡法！~不断判断相邻的两个数大小

用循环 很方便的