Matrices

[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.