Sub test()
Dim s() As String, i&, j&, imax&, temp
Open "d:\a.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
Debug.Print Join(s, vbCrLf) & vbCrLf & String(50, "-")
For i = UBound(s) To 1 Step -1
imax = 0
For j = 0 To i
If Val(Trim(Mid(s(j), 42))) > Val(Trim(Mid(s(imax), 42))) Then imax = j
Next
temp = s(imax)
s(imax) = s(i)
s(i) = temp
Next
Debug.Print Join(s, vbCrLf)
End Sub
运行结果：
0
0
0
23.45519
0
0
1
30.03188
0
0
2
30.51785
0
0
3
23.06458
0
0
4
22.56246
0
0
5
20.3469
0
0
6
25.39143
0
0
7
27.0004
0
0
8
25.68157
0
0
9
28.31564
0
1
0
30.03188
0
1
1
36.60857
0
1
2
37.09455
0
1
3
29.64128
0
1
4
29.13916
0
1
5
26.9236
0
1
6
31.96813
--------------------------------------------------
0
0
5
20.3469
0
0
4
22.56246
0
0
3
23.06458
0
0
0
23.45519
0
0
6
25.39143
0
0
8
25.68157
0
1
5
26.9236
0
0
7
27.0004
0
0
9
28.31564
0
1
4
29.13916
0
1
3
29.64128
0
1
0
30.03188
0
0
1
30.03188
0
0
2
30.51785
0
1
6
31.96813
0
1
1
36.60857
0
1
2
37.09455
