vb 缺少数组

[sinasyq]

Private Sub Form_Load()
frmuser.Height = 4065
frmuser.Width = 2415
Open CurDir & "\user\all.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a(i + 1)
List1.AddItem a(i + 1)
i = i + 1
DoEvents
Loop
End Sub
粗体加下划线的部分提示缺少数组

[sinasyq]

Private Sub Form_Load()
frmuser.Height = 4065
frmuser.Width = 2415
Open CurDir & "\user\all.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a(i + 1)
List1.AddItem a(i + 1)
i = i + 1
DoEvents
Loop
End Sub

粗体加下划线的部分提示缺少数组
急！！！

[of123]

数组 a 声明了吗？

试试：

Private Sub Form_Load()
Dim strTmp As String

frmuser.Height = 4065
frmuser.Width = 2415
Open CurDir & "\user\all.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strTmp
List1.AddItem strTmp
DoEvents
Loop
End Sub

[txzsp]

这里的a(i + 1) 是什么意思？