Sub x()
Dim arr(1 To 10) As Integer, i, j, k
'产çéæºæ°
For i = LBound(arr) To UBound(arr)
arr(i) = Int(Rnd * 100)
Next i
MsgBox "éæºçæçæ°æ®æ¯ï¼" & Join(arr, ",")
'æåº
For i = LBound(arr) To UBound(arr) - 1
k = i
For j = i + 1 To UBound(arr)
If arr(j) > arr(k) Then k = j
Next j
If k <> i Then
j = arr(k)
arr(k) = arr(i)
arr(i) = j
End If
Next i
'è¾åº
MsgBox "æåºä¹åçæ°æ®æ¯ï¼" & Join(arr)
End Sub
温馨提示:答案为网友推荐,仅供参考