学进去

某校老师编写一个VB程序分析学生技术成绩，功能如下：在列表框List1中显示原始学生信息，单击“分析”按钮Command1，统计各班参加考试人数、高分(97及以上)人数和均分，并按班级均分从大到小显示在列表框List2中，程序运行界面如图所示。

实现上述功能的VB程序段如下，请回答下列问题：
（1）学生成绩存储在数据表中，其字段名是     
（2）请在划线处填入合适的代码。
Dim recCount As Integer            '存放学生人数
Dim sClass(1 To 1000) As Integer     '存放学生班级
Dim sName(1 To 1000) As String     '存放学生姓名
Dim sScore(1 To 1000) As Integer   '存放学生成绩
Private Sub Command1_Click()
Dim i As Integer, t As Integer, nc As Integer
Dim a(1 To 20)  As Integer, b(1 To 20) As Integer    '分别存放班级高分人数和班级参加考试人数
Dim sum(1 To 20) As Integer, ave(1 To 20) As Single  '分别存放班级总分和班级均分
Dim c(1 To 20) As Integer 
For i = 1 To recCount           
     ①    
b(t) = b(t) + 1
If b(t) = 1 Then
nc = nc + 1
     ②   
End If
If sScore(i) >= 97 Then a(t) = a(t) + 1
sum(t) = sum(t) + sScore(i) 
Next i
For i = 1 To nc
ave(c(i)) = Int(sum(c(i)) / b(c(i)) * 100 + 0．5) / 100
Next i
For i = 1 To nc - 1
For j = nc To i + 1 Step -1
If      ③     Then
t = c(j): c(j) = c(j - 1): c(j - 1) = t
End If
Next j
Next i
For i = 1 To nc
List2.AddItem Str(c(i)) + " " + Str(b(c(i))) + " " + Str(a(c(i))) + " " + Str(ave(c(i)))
Next i
End Sub
Private Sub Form_Load()
'链接数据库,代码略
recCount = 0
Do While Not rs．EOF
recCount = recCount + 1
sClass(recCount) = rs.Fields("class")
sName(recCount) = rs.Fields("name")
sScore(recCount) = rs.Fields("score")
rs.MoveNext  
Loop
'将数据显示在列表框List1中，代码略
End Sub