Red de conocimiento informático - Material del sitio web - Encuentre el valor máximo del número especificado y su subíndice en la matriz vb

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

tmp = Brr(i)

Brr(i) = Brr(j)

Brr(j) = tmp

tmp1 = Crr(i)

Crr(i) = Crr(j)

Crr(j) = tmp1

Finalizar si

Siguiente j

Siguiente i

Para i = 1 Para n

Imprimir "El número grande de "th" amp; i amp; "es: " amp; Brr(i - 1 ), "El subíndice antes de ordenar es:" amp Crr(i - 1)

Siguiente i

End Sub