编写程序输出成绩平均分大于80的学生的序号和成绩

这是我编的程序
Private Sub Form_Load()
Dim s() As Integer, sum() As Integer, aver() As Single
Dim n As Integer
Show
n = InputBox("请输入学生人数")
ReDim s(n, 2) As Integer, sum(n) As Integer, aver(n) As Single
For i = 1 To n
sum(i) = 0
For j = 1 To 2
s(i, j) = InputBox("第" & i & "位学生第" & j & "门功课成绩")
sum(i) = sum(i) + s(i, j)
Next j
aver(i) = sum(i) / 2
Next i
Print
Print "-----------------------------------------"
Print "序号 成绩1 成绩2 总成绩 平均成绩"
For i = 1 To n
For j = 1 To 2
Print i; Spc(3); s(i, j); Spc(3);
Next j
Print sum(i); Spc(4); aver(i)
Next i
Print "-----------------------------------------"
End Sub
运行的时候总是出现两次序号，如何改为只在“序号”下输出？高手帮忙！！

编写一个程序，输入N个学生的成绩，输出高于平均成绩的学生的学号和成绩. 编写C语言；从键盘输入若干个学生的成绩计算出平均成绩，并输出低以平均分的成绩，用输入负数结束输入 ·编写C语言；从键盘输入若干个学生的成绩计算出平均成绩，并输出低以平均分的成绩，用输入负数结束输入? 编写一个程序，输入N个学生的成绩，输出高于平均成绩的学生的学号和成绩，其中学号和 编写一个程序,输入某门功课的若干个同学的成绩,以-1作为终止的特殊成绩,计算平均成绩并输出 编写程序，输入某门功课的若干个同学的成绩，以-1作为终止的特殊成绩，计算平均成绩并输出。请教高手。。 C语言如何编写：n个学生m门考试科目成绩、总分、平均分，输出总分高到低的排序¨¨¨ 1、编写一个程序，输入N个学生数据，包括学号、姓名、成绩，要求只输出成绩在90分以上的学生数据。 设有5个学生的平均成绩分别是80,78,62,88,编写一个ASP.NET程序,找出最高分和最低分,并在网页上显示出来. 绘制下列程序的流程图:2、输出50个学生中成绩高于80分者的学号和成绩。