Matrices

[MakDominguez]

Buenas gente, necesito imprimir la suma de las columnas y filas de una matriz. Hago todo bien pero no se como imprimir la suma de cada columna y fila al lado de la matriz..

Esto es lo que eh echo hasta ahora..


Module Ejercicio54
Private matriz(5, 5), contador1, contador2, sumacolumnas, sumafilas As Integer
Private random As New Random()


Sub Main()
Matrix()
Randomize()
Console.Read()

End Sub
Private Sub Matrix()
For contador1 = 0 To 4 Step +1
For contador2 = 0 To 4 Step +1
matriz(contador1, contador2) = random.Next(1, 10)
sumafilas = matriz(contador1, contador2)
sumacolumnas = matriz(contador2, contador1)
Next
Next

For contador1 = 0 To 5 Step +1
For contador2 = 0 To 5 Step +1
Console.Write(matriz(contador1, contador2) & " ")
Next
Console.WriteLine()
Next

End Sub

End Module

[Denis127_2]

Buenos días,

Lo primero, que los índices de la matriz los has puesto mal, para que sea de 5 celdas, tienes que poner 4, la 0 también cuenta..

Te falta definir también el tipo de datos, en tu declaración solo estás diciendo que el último elemento sea de tipo Integer.

Código vb:

Sub Main()
    RellenarMatriz()
    VisualizarMatriz()
End Sub
 
Private Sub RellenarMatriz()
    Randomize()
    For i = 0 To 4 Step +1
        For j = 0 To 4 Step +1
            matriz(i, j) = CInt(Int((10 * Rnd()) + 0))  
        Next j
    Next i
End Sub
 
Private Sub VisualizarMatriz()
 
    For i = 0 To 4 Step +1
        For j = 0 To 4 Step +1
            sumafilas = matriz(i, j)            
        Next j
        Console.WriteLine("La fila " & i & " suma: " & sumafilas)
        sumafilas = 0
    Next i
 
    For i = 0 To 4 Step +1
        For j = 0 To 4 Step +1
            sumacolumnas = matriz(j, i)         
        Next j
        Console.WriteLine("La columna " & i & " suma: " & sumacolumnas)
        sumacolumnas = 0
    Next i
 
End Sub
 

No me he preocupado en que compile, pero podría funcionar, corrigele los 4 fallos que haya hecho, y que no sirva de precedente que te haya hecho este programa, si no hubieras posteado algo de código que demuestre que al menos lo has intentado (porque se veia de lejos que no funcionaba... xD) no te hubiera ayudado.

[MakDominguez]

Muchas gracias compañero!!! Soy nuevo en esto de programar, apenas se un poco de C y COBOL, y ahora estoy aprendiendo Visual..