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博客 ” ，链接：https://blog.itpub.net/24345566/viewspace-1047871/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
我对期权的理解（财务管理）
下一篇：
二分法取方根
请登录后发表评论
登录
全部评论
