Option Base 1
Private Sub Command1_Click()
Static a() As Integer
Open "G:\eason\vb\in.txt" For Input As #1
For i = 1 To 10
   Line Input #1, a(i)
   'Text1.Text = Text1.Text & a(i) & ","
   
Next i
For j = 1 To 10
  Print a(j)
Next j
End Sub
我想问一下为什么文件in.txt中的数据并没有读到数组中呢？这个程序哪个地方有问题？

你 a 这个数组在那里初始化了？
你定义了 静态的可变数组，但没有重新定义 数组元素个数。

这个我知道，今天刚学习的。一师哥说你把Static a() As Integer改成dim a(10) as string就可以了，我一试，真的可以运行。快，给分，给分。