PC Solución

Arrays

Replay 


Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'ARRAY CON 4 POSICIONES

        Dim nombre_array(4) As String  'Definimos el array llamado nombre_array que tendrá 4 posiciones de tipo String(texto). 

        nombre_array(0) = "Esto"
        nombre_array(1) = "es"         'Asignamos un valor en cada una de las 4 posiciones.
        nombre_array(2) = "pc"
        nombre_array(3) = "solución"

        MsgBox(nombre_array(0) + " " + nombre_array(1) + " " + nombre_array(2) + " " + nombre_array(3))
        'Mostramos en pantalla los 4 valores separados por un espacio.



        'ARRAY SIN ESPECIFICAR NÚMERO DE POSICIONES

        Dim array2() As String                                  'Creamos el array que se llamará array2.

        array2 = New String() {"Esto", "es", "pc", "solución"}  'Asignamos los valores en cada posición

        MsgBox(array2(0).ToString + " " + array2(1).ToString + " " + array2(2).ToString + " " + array2(3).ToString)
        'Mostramos en pantalla los 4 valores del array.

        ReDim Preserve array2(3)         'Con ReDim Preserve podemos eliminar la longitud del array quitándole el cuarto valor en este caso.



        'ARRAY MULTIDIMENSIONAL O MATRIZ

        Dim matriz(,) As Integer = {{15, 16, 17}, {18, 19, 20}}   'Creamos la matriz qe tendrá 2 filas(,) y 3 columnas {15, 16, 17}. *Ver imágen

        MsgBox(matriz(1, 2).ToString)  'Mostramos en pantalla el valor de la fila 1 y de la columna 2.


    End Sub
End Class

arrays

Matriz del ejemplo

Matriz del ejemplo