Вопрос сортировки Массива

[A]

Здравствуйте, вот вопрос:
Имеется Массив
Dim Arr(4) as integer
он состоит из 5 рандомальных чисел,
требуется перенести в новый Массив
Dim List(4) as integer
номера индексов массива Arr так что бы значение которые представляют номера возрастали.
Пример:
Значение Arr : 5,9,4,6,8
Новый массив List быть : 2,0,3,4,1
Это вроде не сложно но я не знаю как решить,
может кто поможет?

[GoGosha]

Код: Выделить всё


Private Sub Form_Load()
    Dim Arr(4) As Integer
    Dim List(4) As Integer
    Dim Ind As Long
    Dim min1 As Long
    Dim Min2 As Long
    Dim MaxInd As Long
   
    Arr(0) = 5
    Arr(1) = 9
    Arr(2) = 4
    Arr(3) = 6
    Arr(4) = 8
   
    For a = 0 To UBound(Arr)
        min1 = Arr(0) + Arr(1) + Arr(2) + Arr(3) + Arr(4)
        For b = 0 To UBound(Arr)
            If Arr(b) > Min2 And Arr(b) < min1 Then
                min1 = Arr(b)
                MaxInd = b
            End If
        Next b
        List(Ind) = MaxInd
        Ind = Ind + 1
        Min2 = min1
    Next a
   
    For a = 0 To UBound(Arr)
        Print List(a)
    Next a
End Sub

[A]

Спасибо, самое быстрое решение Ваше!
Скажите а что надо изменить что бы значение индексов шло с большого до мальенкого?

[_NeoN_]

Абсолютню все сортировки основаны на сравнении чисел, и эта тоже, хотя алгоритм этой я не знаю.. вижу первый раз.. ну дык вот.. если поменять пару знаков сравнения то получится противоположный рехультат, что и где менять думай сам, не все же тебе разжевать надо и в рот положить =)

[GSerg]

Ты не прав, существуют алгоритмы сотртировок без использования сравнения. Область их применения достаточно узка (массив должен обладать парой важных свойств), но, тем не менее, они есть, и скорость у них очень даже.

[_NeoN_]

Ну я имел в виду те сортировки которые сортируют любые массивы...