Red de conocimiento informático - Aprendizaje de código fuente - Ayuda para principiantes Programación VB ¿Cómo leer datos de archivos *.txt en una matriz?

Ayuda para principiantes Programación VB ¿Cómo leer datos de archivos *.txt en una matriz?

Si necesita leer un número indefinido, puede agregar otra declaración al programa para ingresar n, o agregar un texto1 cuyo contenido represente el número de elementos.

Private Sub Form_click()

Atenuar a(1 a 10000) como entero,n como entero

n = InputBox("Ingrese el número de elementos de la matriz", "InputBox")

' n=Val(text1.

Abra "E:\vbprogram\input\0.txt" para la entrada como #1

Para i = 1 a n

Ingrese #1, a(i)

Siguiente

Cierre #1

Para i = 1 To n

Imprimir a(i)

Siguiente

Fin Sub