programación vb (matriz)

¿Privado?Sub?Command1_Click()

¿Dim?i,?m,?j,?s,?u

¿Dim? a?Como?Variante

a?=?Array(23,?4,?14,?5,?57,?85,?43,?24,?78,?54)

u?=?UBound(a)

m?=?Val(InputBox("Input?a?number"))

Para?i?=?1 ?A?u

Si?a(i)?=?m?Entonces

Si?i?=?u?Entonces

u?=? u?-?1

i?=?i?-?1

ReDim?Preserve?a(u)

¿Salir?For

¿Fin?Si

u?=?u?1

¿Para?j?=?i?A?u

a(j)? =?a(j? ?1)

Siguiente

¿Salir?Para

Fin?Si

Siguiente

If?i?gt;?u?Then

s?=?Val(InputBox("Sin este número, ¿cuántas veces te gustaría que fuera?"))

u?=?u?1

ReDim?Preserve?a(u)

For?i?=?u?-?1?To?s?Step? -1

a(i? ?1)? =?a(i)

Siguiente

a(s)?

¿Fin?Si

¿Para?i?=?1?A?u

¿Imprimir?