瑞星卡卡安全论坛

    Sub ShellSort(ByRef sort() As String, ByVal numOfElements As Short)
        Dim temp As String
        Dim i, j, span As Short
        'The ShellSort procedure sorts the elements of sort()
        'array in descending order and returns it to the calling
        'procedure.

        span = numOfElements \ 2
        Do While span > 0
            For i = span To numOfElements - 1
                For j = (i - span + 1) To 1 Step -span
                    If sort(j) <= sort(j + span) Then Exit For
                    'swap array elements that are out of order
                    temp = sort(j)
                    sort(j) = sort(j + span)
                    sort(j + span) = temp
                Next j
            Next i
            span = span \ 2
        Loop
    End Sub

lz想怎么解答啊？

能多详细就多详细