Quiero escribir un pequeño programa usando vb.

Dim a()' define una matriz

Marca I como un número entero

Subcomando privado 1_Click()

Ir a identificador de error en caso de error

Atenuar elementos

Imprima el elemento de la matriz para cada elemento en un archivo '.

Imprimir elemento;

Luego

Conector de exportación

Identificador de error:

MsgBox "Por favor proporcione la matriz primero Assignment", 48 0, "Error"

Conector final

Subtexto privado 1 _ KeyPress (KeyAscii es un número entero)

Si KeyAscii = 13, entonces ' Si presionas enter.

Redem conserva una (I) matriz dinámica redefinida.

A(i) = Val(Text1)' asigna un valor al array.

i = i 1

Texto1 = " "

Terminará si...

Finalizar conector