Matrices

Desde el punto de vista lógico una matriz se puede ver como un conjunto de elementos ordenados en fila (o filas y columnas si tuviera dos dimensiones).
En principio, se puede considerar que todas las matrices son de una dimensión, la dimensión principal, pero los elementos de dicha fila pueden ser a su vez matrices (un proceso que puede ser recursivo), lo que nos permite hablar de la existencia de matrices multidimensionales, aunque las más fáciles de imaginar son los de una, dos y tres dimensiones.

Este proyecto nos permite crear un pequeña matriz, pidiéndole al usuario ingresar números, y permite ordenar dichos números en filas y columnas para luego poder imprimir los números ingresados con anterioridad para la visualización del usuario de cómo crear una matriz.

Este código Public nos permite llamarlo en la línea de código con anterioridad para que funciones de una mejor manera, y nos permite llamarlo en cualquier línea de código.

Public Class frmEjemploMatríz

 Dim Numeros(1, 2) As Integer

Este código nos permite ingresar el tamaño de la matriz, después ingresar los demás números con anterioridad.

For Filas As Integer = 0 To 1

            For columnas As Integer = 0 To 2

                Numeros(Filas, columnas) = InputBox("Proporcione el valor (" & Filas & "," & columnas & ")")

            Next

        Next

Con este código nos permite imprimir la matriz de los números ingresado anteriormente, que nos imprime las filas y las columnas de la matriz ingresada.

Dim Resultado As String = ""

        For Filas As Integer = 0 To 1

            For columnas As Integer = 0 To 2

               

                'Esta parte une cada elemento de la Matríz.

                If columnas <> 2 Then

                    Resultado = Resultado & Numeros(Filas, columnas) & ","

                Else

                    Resultado = Resultado & Numeros(Filas, columnas)

                End If

            Next

            'Esta parte maneja el resultado y hace un salto de fila(Enter).

            Resultado = Resultado & vbCrLf

        Next

        MsgBox(Resultado)

 Link en la imagen para descargar proyecto:

Este otro proyecto nos permite pedir al usuario un tamaño determinado de una matriz, para ordenarlo  en filas y columnas para poder demostrarle al usuario una forma más fácil de cómo son las matrices. 

Este código Public nos permite llamarlo en la línea de código con anterioridad para que funciones de una mejor manera, y nos permite llamarlo en cualquier línea de código.

Public Class FrmMatrízDinámica

    Dim MatrizDinamica(,) As Integer

    Dim Filas As Integer = 0

    Dim Columnas As Integer = 0

        'Preguntamos el tamaño--->

        Filas = Val(InputBox("Cuántas Filas va tener la Matríz")) - 1

        Columnas = Val(InputBox("Cuántas Columnas va tener la Matríz")) - 1

        'Se dimenciona la matríz---->

        ReDim MatrizDinamica(Filas, Columnas)

        'Se lee la matríz---->

        For Filas As Integer = 0 To Filas

            For Columnas As Integer = 0 To Columnas

                MatrizDinamica(Filas, Columnas) = InputBox("Introduzca el elemento("   & Filas & "," & Columnas & ")")

            Next

        Next

Linck proyecto:

Este otro ejemplo se encarga de hacer la suma de las matrices ingresadas:

Este código Public nos permite llamarlo en la línea de código con anterioridad para que funciones de una mejor manera, y nos permite llamarlo en cualquier línea de código.

Public Class frmSumaDeMatrices

    Dim matrizA(2, 2) As Integer

    Dim matrizB(2, 2) As Integer

    Dim matrizC(2, 2) As Integer

En este código se declara el tamaño de la matriz uno con la matriz dos

For Filas As Integer = 0 To 2

            For columnas As Integer = 0 To 2

                matrizA(Filas, columnas) = InputBox("Proporcione el valor (" & Filas & "," & columnas & ")")

            Next

        Next

Este código nos permite sumar la primera matriz con la segunda y usar los números que fueron insertados con anterioridad, permite imprimir un solo resultado de las dos matriz

Dim Resultado As String = ""

        For Filas As Integer = 0 To 2

            For columnas As Integer = 0 To 2

                Resultado = matrizA(Filas, columnas) + matrizB(Filas, columnas)

            Next

            'Resultado = Resultado & vbCrLf

        Next

        MsgBox(Resultado)

    End Sub