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:
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
For j = 2 To 2
En ese for solo estas fijando la segunda columna, tiene más columnas?
Lo muevo a .net (ese MessageBox.Show es de vb.net)
Hola, fije la segunda ya que en la primera (Segun cuando cargo el vector) las filas toman el valor maximo de la primera columna, mi matriz es de 5 x 2, muchas gracias, creo que es lo logico que funcione pero no se por que me tira cualquier valor, por ejemplo en la fila uno pongo 10 y 2, y me dice que el maximo es 2 u.u
Pude solucionarlo, era una tonteria -.- el error estaba en la condicion
For i = 1 To 5
For j = 2 To 2
If (maximo < vsdos(i, j)) Then
Maximo no tenia valor.. la solucion fue poner el vector que cargue antes (maximov(i) ) dios, como un error de tipeo me tuvo horas jajajaj, perdon las molestias y gracias.
[MOD]: Usa las etiquetas para agregar código