' 冒泡排序法(升序)
Public Sub PopoAsc(ByRef Bobo() As String, ByVal m As Integer)Dim i As Integer
Dim j As Integer
Dim tem As String'冒泡排序法，核心程序
For i = 1 To m - 1
For j = 1 To m - i
If (Bobo(j) > Bobo(j 1)) Then
tem = Bobo(j)
Bobo(j) = Bobo(j 1)
Bobo(j 1) = tem
End If
Next j
Next iEnd Sub。
