Suma en Espiral de una Matriz

Bienvenidos en esta ocasión desarrollaremos un código en el cual se haga la suma de los elementos de una matriz en espiral.

En la parte del diseño vamos a utilizar únicamente un ListBox y un Boton a los cuales nombre de acuerdo a lo que se van a utilizar (Lstmatriz, Btnsuma). 

Declaramos una variable global que se usa para todo el código, y en el LstMatriz declaramos las variables necesarias y desarrollamos.

Public Class Espiral

    Dim matriz(5, 5)

    Private Sub Lstmatriz_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lstmatriz.SelectedIndexChanged, Lstmatriz.Click

        Dim x, y, n As Integer

        Dim cad As String

        For x = 0 To 4

            For y = 0 To 4

                n = InputBox("Proporcione los datos:" & CStr(x + 1) & "-" & CStr(y + 1), "Proporcione Matriz")

                matriz(x, y) = n

            Next

        Next

        For x = 0 To 4

            cad = "  "

            For y = 0 To 4

                cad = cad & CStr(matriz(x, y)) & "   "

            Next

            Lstmatriz.Items.Add(cad)

        Next

    End Sub

Para programar el botón suma únicamente declaramos las variables de acuerdo a las posiciones de la matriz.

Programamos el como queremos que se lleve acabo la suma en forma de espiral.

para que arroje el resultado ponemos un MsgBox

Depuramos y vemos que funciona correctamente, espero que esto sea de apoyo

¡Muchas gracias!