Private Sub Com

Private Sub Command1_Click()
Dim i As Integer, b As Integer
Dim A(19) As Integer
Open "C:\Users\asus\Desktop\in0274.txt" For Input As #1
Do While Not EOF(1)
Input #1, i
List1.AddItem i
Loop
For b = 0 To 19
A(b) = Val(List1.List(b))
Print A(b)
Next b
End Sub
大家来找茬，找出错误的地方（各位大佬救命啊，哪里错了，在线等急）