Sub 升序排序() Dim 数组(), i As Byte, 升序() 数组 = Array(2, 5, 3, 4, 1) ReDim 升序(1 To UBound(数组) + 1) For i = LBound(数组) To UBound(数组) 升序(i + 1) = WorksheetFunction.Small(数组, i + 1) Next End Sub
Sub 倒序排序() Dim 数组(), i As Byte, 倒序() 数组 = Array(2, 5, 3, 4, 1) ReDim 倒序(1 To UBound(数组) + 1) For i = LBound(数组) To UBound(数组) 倒序(i + 1) = WorksheetFunction.Large(数组, i + 1) Next End Sub
Sub 冒泡排序() Dim 数组(), 中转 As Byte, x As Byte, y As Byte 数组 = Array(2, 5, 3, 4, 1) For x = LBound(数组) To UBound(数组) For y = x + 1 To UBound(数组) '判断前面那个数是否大于后面那个数，如果大于则交换一个位置 If 数组(x) > 数组(y) Then 中转 = 数组(x) 数组(x) = 数组(y) 数组(y) = 中转 End If Next Next End Sub
小渚与汐
