如何在VB宏

Question

交換一個整數數組的價值和指數如何交換一個整數數組的價值和指數VB宏

i(0 to 5) = {3,4,1,5,0,2} 
To 
i(0 to 5) = {4,2,5,0,1,3} 

編輯...

三江源@Tim和@Cody

下面的函數是什麼我有，但尋找更好的和比較有效的方式做到這一點的/無陣列l_aiOldIndexSwap

Public Function SortValuePairs(ByRef l_aiValues() As Integer) As Integer() 
    Dim l_aiOldIndexSwap() As Integer 
    ReDim l_aiOldIndexSwap(LBound(l_aiValues) To UBound(l_aiValues)) 
    For i = LBound(l_aiValues) To UBound(l_aiValues) 
     l_aiOldIndexSwap(l_aiValues(i)) = i 
    Next 
    SortValuePairs = l_aiOldIndexSwap 
    End Function 

Answer 1

試試這個

Dim Result As Integer() 
ReDim Result(5) 
For iLoop = 0 To 5 
    Result(i(iLoop)) = iLoop 
Next