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 p>
Para i = 1 a n
Ingrese #1, a(i)
Siguiente
Cierre #1
Para i = 1 To n
Imprimir a(i)
Siguiente
Fin Sub