Sub XXX()
Dim a(9) As Long
a(1) = 99 a(2) = 564 a(3) = 412 a(4) = 434 a(5) = 65
a(6) = 99999 a(7) = 754345 a(8) = 0 a(9) = 1212
Dim i As Long, l As Long, n As Long
For i = 1 To 9
For l = i To 9
If a(i) > a(l) Then
n = a(i) a(i) = a(l) a(l) = n
End If
Next l
Cells(i, 1) = a(i)
Next i
For i = 9 To 1 Step -1
Cells(10 - i, 2) = a(i)
Next i
End Sub
[@more@]来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/24345566/viewspace-1047871/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/24345566/viewspace-1047871/