大神快来啊!

Private Sub Command1_Click() * 冒泡排序
Dim i As Integer, G As String, F As String
For i = List1.ListCount - 1 To 0 Step -1
For j = 1 To i
If M(j) < M(j + 1) Then
F = M(j)
G = N(j)
M(j) = M(j + 1)
N(j) = N(j + 1)
M(j + 1) = F
N(j + 1) = G
End If
Next
Next
List2.Clear
For i = 1 To List1.ListCount
List2.AddItem N(i) & " " & M(i)
Next
End Sub