Option Compare Database

Private Sub Command0_Click()
    Dim p$, f$, s1$, s2$, k&
    
'    p = CurrentProject.Path & "\Backup\"
'    f = GetAllFileNamesInFolder(p, "|")
    s1 = "2,5,4,8,1,3,7,6"
    s2 = "Everly,Polly,Jocelyn,Alina"
    Me.Text1.Value = s1 & vbCrLf & s2
    Me.Text2.Value = BubbleSort(s1, ",") & vbCrLf & BubbleSort(s2, ",", True)
End Sub
Function BubbleSort(S As String, Delimiter As String, Optional Descend As Boolean) As String  '数组冒泡排序法
    Dim Ar() As String, Last%, i%, j%, Temp$, List$
    Ar = Split(S, Delimiter)
    Last = UBound(Ar)
    If Nz(Descend, "") = "" Then Descend = False
    For i = 0 To Last - 1
        For j = i + 1 To Last
            If Ar(i) > Ar(j) Then
                Temp = Ar(j)
                Ar(j) = Ar(i)
                Ar(i) = Temp
            End If
        Next j
    Next i
    If Not Descend Then
        For i = 0 To UBound(Ar): List = List & Delimiter & Ar(i): Next
    Else
        For i = UBound(Ar) To 0 Step -1: List = List & Delimiter & Ar(i): Next
    End If
    BubbleSort = Mid(List, 2)
End Function

图   示: