Encuentre el valor máximo del número especificado y su subíndice en la matriz vb

El código es el siguiente:

'arr() es la matriz de destino que proporcionaste, n son los primeros n valores máximos que especificaste, llamando al ejemplo:

' Dim arr() Como variante

' arr = Array(1, 4, 5, 6, 2, 6, 8, 4, 6, 7)

' PrintPreN arr, 10

Private Sub PrintPreN(arr() As Variant, n As Long)

Dim Brr() As Variant 'Matriz ordenada

dim Crr ( ) Como variante 'Se utiliza para almacenar subíndices

Brr = arr

Dim i, j, tmp, tmp1 As Long

ReDim Crr(UBound(arr) 1)

Para i = 0 A UBound(arr)

Crr(i) = i

Siguiente i

Para i = 0 a UBound(Brr) - 1

Para j = i 1 a UBound(arr)

Si Brr(i) lt (j) Entonces