Esta es una imagen del problema que tengo que hacer. (Esto es un ejemplo los valores pueden ser cualquiera no necesariamente esos)
Y este es el código que realice. (PD: Estoy trabajando en visual basic y en Windows form)
Código
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim Matriz(4, 4) As Integer Dim SR(4) As Integer Dim SC(4) As Integer Dim DP, DI, F, C As Integer For F = 1 To 4 For C = 1 To 4 Matriz(F, C) = CType(InputBox("Dame el valor: " & "Matriz[" & F & "," & C & "]: "), Integer) SR(F) = SR(F) + Matriz(F, C) If F = C Then DP = DP + Matriz(F, C) End If If F + C = 5 Then DI = DI + Matriz(F, C) End If Next Next For C = 1 To 4 For F = 1 To 4 SC(C) = SC(C) + Matriz(F, C) Next Next End Sub End Class
Y no puedo llegar a obtener el resultado de la suma de cada fila, columna, y las dos diagonales.
En resumen:
"SR" es la suma de cada una de las columnas 1, 2, 3, 4
"SC" es la suma de cada una de las filas 1, 2, 3, 4
"DP" es la suma de los valores que estén en la diagonal principal
"DI" es la suma de los valores que estén en la diagonal invertida.
Espero y me puedan ayudar, si tiene alguna duda sobre el problema pregunten.
En resumen:
"SR" es la suma de cada una de las columnas 1, 2, 3, 4
"SC" es la suma de cada una de las filas 1, 2, 3, 4
"DP" es la suma de los valores que estén en la diagonal principal
"DI" es la suma de los valores que estén en la diagonal invertida.
Espero y me puedan ayudar, si tiene alguna duda sobre el problema pregunten.