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