VECTOR DINÁMICO

Un vector dinámico no es más que un vector con capacidad para crecer y decrecer.

Una instancia v del tipo de datos abstracto Vector dinámico sobre el  tipo float es un array unidimensional de un determinado tamaño n, que puede crecer y decrecer a petición del usuario.

Este es el diseño del proyecto realizado.

Se utiliza el siguiente código:

Public Class VectorDinamico

    Dim numeros() As Integer

    Dim tamano As Integer = -1

    Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click

        tamano = tamano + 1

        ReDim Preserve numeros(tamano)

        numeros(tamano) = InputBox("Deme el elemento ")

    End Sub

    Private Sub BtnTamano_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTamano.Click

        MsgBox("El vector tiene  " & numeros.Length & " Elementos")

    End Sub

    Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click

        For i As Integer = 0 To numeros.Length - 1

            MsgBox(numeros(i))

        Next

    End Sub

End Class

En este link podrá encontrar el proyecto ya funcional.

https://drive.google.com/file/d/0B4efdeDUNI9Xa3BkSWl2UDNESjg/edit?usp=sharing