VB6按照大小排序源码分享

    Dim numbers() As Long

    Dim i As Long, j As Long

    Dim tempLine As String

    Dim tempNum As Long

    ' 给定的字符串列表

    lines = Split(inputText, vbCrLf)

    ' 获取每行的数字并存储到 numbers 数组中

    ReDim numbers(LBound(lines) To UBound(lines))

    For i = LBound(lines) To UBound(lines)

        numbers(i) = CLng(Val(Mid(lines(i), InStrRev(lines(i), "---") + 3)))

    Next i

    ' 使用冒泡排序将行和对应的数字同时排序

    For i = LBound(numbers) To UBound(numbers) - 1

        For j = i + 1 To UBound(numbers)

            If numbers(j) > numbers(i) Then

                ' 交换数字的位置

                tempNum = numbers(i)

                numbers(i) = numbers(j)