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