Código
Dim maximo As Decimal Dim maximov(6) As Decimal Dim i, j As Integer For i = 1 To 5 maximov(i) = vsdos(i,1) (Aca cargar en un vector el maximo de todas las filas en la columna 1) Next For i = 1 To 5 For j = 2 To 2 If (maximo < vsdos(i, j)) Then maximov(i) = vsdos(i, j) (Aca que cargue en el vector si encuentra un valor mayor, que unicamente lo puede encontrar en la segunda columna por que la primera ya esta ocupada) End If Next Next For i = 1 To 5 MessageBox.Show("El máximo de la fila " & i & "es " & maximov(i)) (Finalmente que imprima) Next End Sub End Class
pero no se por que me esta tirando cualquier valor probe hacerlo de otras maneras y me pasa lo mismo, mi matriz es de 5*2, agradeceria algunos consejos si alguien es tan amable por favor