Ayúdame a escribir un código de texto VB simple

Subcomando privado1_Click()

Atenuar x() como cadena

Atenuar ip() como cadena

Atenuar t como entero

Abra "c：\1.txt" para ingresar como #1 'Ingrese usted mismo la dirección del archivo de texto

Haga mientras no sea EOF(1)

Entrada de línea # 1, temp

x = Split(temp, Space(1))

ReDim Preserve x(UBound(x))

ReDim Preserve ip(t )

ip(t) = x(0)

t = t 1

Bucle

Cierre #1

For i = 0 To UBound(ip)

List1.AddItem ip(i) 'También puedes guardar esta matriz como un archivo

Siguiente

Fin Sub