比大小

Question

六个数
A B C D E F先比较 A B C选出一个大的来若A B C 相等,则比较D E F,选出一个大的来

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim Arr() As Double
    Dim i As Long
    ReDim Arr(1 To 6) As Double
    Arr(1) = Asc("f")
    Arr(2) = Asc("a")
    Arr(3) = Asc("e")
    Arr(4) = Asc("d")
    Arr(5) = Asc("c")
    Arr(6) = Asc("b")
    BubbleSort Arr
    For i = 1 To 6
        Debug.Print Chr(Arr(i))
    Next
End SubSub BubbleSort(List() As Double) 'laviewpbt整理    Dim First As Double, Last As Double
    Dim i As Integer, j As Integer
    Dim Temp As Double
    
    First = LBound(List)
    Last = UBound(List)
    For i = First To Last - 1
        For j = i + 1 To Last
            If List(i) > List(j) Then
                Temp = List(j)
                List(j) = List(i)
                List(i) = Temp
            End If
        Next j
    Next i
End Sub

Answer 2

我是说 ，假设 ABCDEF里面存的都是16进制的数，不是比较ABCDEF是我会收到三组数，一组里面有两个数
先比较第一个，如果大，取大的，如果三组里的第一个数一样大，就比较三组里第二个数，选大的

Answer 3

我是说 ，假设 ABCDEF里面存的都是16进制的数，不是比较ABCDEF是我会收到三组数，一组里面有两个数
先比较第一个，如果大，取大的，如果三组里的第一个数一样大，就比较三组里第二个数，选大的