vb 缺少数组
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
粗体加下划线的部分提示缺少数组 --------------------编程问答--------------------
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
粗体加下划线的部分提示缺少数组
急！！！ --------------------编程问答-------------------- --------------------编程问答-------------------- 这里的a(i + 1) 是什么意思？
补充：VB , 基础类
