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

[A]

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

[FaKk2]

Я б закрыл....

[alibek]

То, что ты хочешь, в базе данных называется "индексы"
Примерно так:

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

' сортировка методом пузырька
Sub SortIndex(Array() As Integer, Index() As Integer)
Dim C As Long, I As Long, LB As Long, UB As Long
Dim Min As Integer,Max As Integer
LB = LBound(Array)
UB = UBound(Array)
ReDim Index(LB To UB)
N = Fix((UB - LB + 1) / 2)
For C = 0 To N-1
  Min = LB + C
  Max = LB + C
  For I = LB+C To UB-C
    If Array(I) < Array(Min) Then Min = I
    If Array(I) > Array(Max) Then Max = I
  Next I
  If Min = Max Then Max = UB - C
  Index(LB+C) = Min
  Index(UB-C) = Max
Next C
End Sub


P.S. Код не проверял, может какие-то опечатки и будут, но принцип верный.