vb input 函数

因为你的数组没有定义大小.
Dim a() As Long 应该改成Dim a(1 to 10) As Long

或者另外添加一句redim a(1 to 10)

两种修改方式.
一,
Private Sub Command1_Click()
Dim a() As Long
Open "d:\zzzz.txt" For Input As #1
For i = 0 To 9
Input #1, a(i)
Next i
Close #1
二,
Private Sub Command1_Click()
Dim a(1 to 10) As Long
Open "d:\zzzz.txt" For Input As #1
For i = 1 To 10
Input #1, a(i)
Next i
Close #1

是你数组定义的有问题.和INPUT函数没关系.呵呵。

改成这样试下
Private Sub Command1_Click()
Dim a(1 to 10) As Long
Open "d:\zzzz.txt" For Input As #1
For i = 1 To 10
line input #1, a(i)
Next i
Close #1
End sub

数组没定义