Задача на сортировку - VB

Формулировка задачи:

Элементы массива Д(n) случайным образом перемешаны. Элементы Кi массива К(n) указывают номера позиций, которые занимали соответствующие элементы Дi до перемешивания. Восстановить исходное состояние массива Д.

Решение задачи: «Задача на сортировку»

textual
                            Листинг программы 
                        

                            Sub RestoreOrder(D() As Integer, K() As Integer)
Dim W() As Integer
      n% = UBound(D, 1)
      ReDim W(1 To n%) As Integer
      For i% = 1 To n%
           j% = K(i%)
           W(j%) = D(i%)
      Next i%
      For i% = 1 To n%
          D(i%) = W(i%)
      Next i%
End Sub
                        