求教一个VB排序问题：

Question

一个变量的所有项中的每一项里含有序号和小数，现在要以小数从大到小排列
如：18 0.333 变为：16 0.400
11 0.400
17 0.250 13 0.375
16 0.400 18 0.333
15 0.333 15 0.333
14 0.286 12 0.333
13 0.375 14 0.286
12 0.333 17 0.250
11 0.400
请给出代码，谢谢！

Answer 1

Private Sub Command1_Click()

Dim a(1 To 8) As String
Dim i As Long, j As Long
Dim tmp As String

a(1) = "18 0.333"
a(2) = "17 0.250"
a(3) = "16 0.400"
a(4) = "15 0.333"
a(5) = "14 0.280"
a(6) = "13 0.375"
a(7) = "12 0.333"
a(8) = "11 0.400"

For i = 1 To 7
For j = i + 1 To 8
If GetValue(a(i)) < GetValue(a(j)) Then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
End If
Next
Next

Debug.Print Join(a, vbCrLf)

End Sub

Function GetValue(ByVal s As String) As Double
GetValue = Val(Split(s, Chr(32))(1))
End Function

如果你排序的数量巨大，这个冒泡算法效率太低了，可以考虑用快排或借用recordset对象的sort方法...

Answer 2

Private Type ZS_XS
zs As Integer
xs As Single
End Type

Private Sub Form_Click()
Dim b(1 To 8) As ZS_XS, t As ZS_XS
Dim a(1 To 8) As String, s
a(1) = "18 0.333"
a(2) = "17 0.250"
a(3) = "16 0.400"
a(4) = "15 0.333"
a(5) = "14 0.280"
a(6) = "13 0.375"
a(7) = "12 0.333"
a(8) = "11 0.400"

For i = 1 To 8
s = Split(a(i), " ") '注意是整数和小数之间的分隔符
b(i).zs = Val(s(0))
b(i).xs = Val(s(1))
Next

For i = 1 To 7
For j = i + 1 To 8
If b(i).xs < b(j).xs Then
t = b(i): b(i) = b(j): b(j) = t
End If
Next
Next

For i = 1 To 8
Print b(i).zs; Format(b(i).xs, "0.000")
Next
End Sub

Answer 3

快速排序法：

Private Sub Command1_Click()
Dim a() As Single
ReDim a(11 To 18)
Dim i As Long
a(18) = 0.333
a(17) = 0.25
a(16) = 0.4
a(15) = 0.333
a(14) = 0.28
a(13) = 0.375
a(12) = 0.333
a(11) = 0.4
QuickSort2 a(), LBound(a), UBound(a)
For i = LBound(a) To UBound(a) '显示排序结果
Print i & " " & Format(a(i), "0.000")
Next
End Sub

Public Sub QuickSort2(ByRef aStrSort() As Single, ByVal lngleft As Long, ByVal lngright As Long)
Dim i As Long
Dim j As Long
Dim temp As Long
i = lngleft
j = lngright
temp = aStrSort(i)

NextStep:
Do Until i >= j
While (aStrSort(j) > temp And j > i)
j = j - 1
Wend
If j > i Then
aStrSort(i) = aStrSort(j)
aStrSort(j) = temp
i = i + 1
End If
While (aStrSort(i) < temp And j > i)
i = i + 1
Wend
If j > i Then
aStrSort(j) = aStrSort(i)
aStrSort(i) = temp
j = j - 1
End If
Loop
If lngleft < i - 1 Then QuickSort2 aStrSort, lngleft, i - 1
If lngright > i + 1 Then QuickSort2 aStrSort, i + 1, lngright
End Sub