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
图 示: