VB程序运行时出现输入超出文件尾是什么原因。请高手帮我改一下程序!!!

Question

Dim yy!(200), sx!(200), wl!(200)Private Sub Form_Load() Dim i% Dim no$, name$ Open "C:\成绩.txt" For Input As #1 i = 1 Do While Not EOF(1) Input #1, no, name, yy(i), sx(i), wl(i)(这一步显示超出文件尾) List1.AddItem no List2.AddItem name i = i + 1 Loop List1.ListIndex = 0 List2.ListIndex = 0 End Sub
Private Sub command2_Click() Dim i% Dim total! i = List1.ListIndex total = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) Text4 = Format(total / 3, "##.0")End SubPrivate Sub command1_Click() EndEnd SubPrivate Sub List1_Click() Dim i% i = List1.ListIndex List2.ListIndex = List1.ListIndexEnd Sub
Private Sub List2_Click() Dim i% i = List2.ListIndex List1.ListIndex = List2.ListIndex End Sub

建立一个成绩查询窗体，界面如图，功能要求如下：
1.在form_load时，可以打开 包含10个学生学号和姓名和三门课程成绩的文件，该文件文件自己建立
。将读入的学号和姓名分别添加进两个列表框，同时将三门课程的成绩读入c、d、e三个数组中，并默
认选中第一个学生。
2.当点击“姓名”“ 学号”列表框中任意一项时，两项同时变动，且相应的成绩数据被选中显示在对
应的文本框中。
3、点击“计算”，则计算该学生的三项成绩的平均值，并保留两位小数显示。
4、点击“退出”则结束程序。

Answer 1

1、C:\成绩.txt中可能有空行，删除空行试试。
2、C:\成绩.txt中的数据个数与程序中变量个数不能一对应。
Input #1, no, name, yy(i), sx(i), wl(i)一次读四个变量，文件中的数据个数要是4的整倍数。

Answer 2

文件个数超过数组上限

Answer 3

超出数组上限，你的数组上限是201,你的文本文件内有多少笔资料？追问

应该怎么修改啊。

追答

有多少笔就定义数组上限啊