Temas

Hola gente buenas noches, estoy teniendo un problema, me piden sacar el máximo de filas de una matriz, y lo intente todo lo que plantie es lo siguiente:

Código (vbnet) [Seleccionar] Expandir

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