Question

新手求助VB编程如何将*.txt文件中的数据读入到数组？

比如说有一个文件0.txt，内容是：
12
45
79
357
458
等上千个数，如何读入到一个数组a()中。
多谢，急需要!!!
这个程序只能读10个数据，需要的是读入不定个说的数据。

Answer 1

如果需要读入不定个数，那就在程序中再加一句输入n的语句,或添加一text1,其中内容表示元素个数。

Private Sub Form_click()
Dim a(1 To 10000) As Integer,n As Integer
n = InputBox("请输入数组元素个数", "输入框")
' n=Val(text1.text)
Open "E:\vbprogram\input\0.txt" For Input As #1
For i = 1 To n
Input #1, a(i)
Next
Close #1
For i = 1 To n
Print a(i)
Next
End Sub