学进去

小王编写了一个“学生体能情况分析”程序，其功能是分项计算名次和优秀率（分数 90 分及以上为优秀）。运行程序时，在列表框 List1 中显示所有学生的 3 项体能测试分数，在文本框 Text1 中输入测试项目代码（1 表示游泳，2 表示跑步，3 表示跳远），单击“计算”按钮 Command1 后，计算结果分别显示在列表框 List2 和标签 Label2。程序运行界面如图 a 所示。


程序设计过程中数据的存储和计算方法如下：
（1）学生体能分数的存储：如图 b 所示，第 1 位学生的游泳、跑步、跳远分数依次存入数组 score 的第 1、2、3 个元素里，第 2 个学生的游泳、跑步、跳远分数依次存入数组 score 的第 4、5、6 个元素里，以此类推。
（2）计算名次的方法，先统计每个分数的个数，存入数组 a，如下表中 a（96）的值为 9，表示共有 9 个96 分；然后按照分数从高到低依次计算每个有效分数（该分数的个数不为 0）对应的名次存入数组 b，分数相同时名次并列，如下图中的 b（96）值为 10，表示 96 分的名次是（并列）第 10 名，以此类推。

请回答下列问题：
（1）根据图 a 中列表框 List1 中的信息和图 b 所示的数据存储方法可知，数组元素 score（23）的值为________（填数字）。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Dim m As Integer
Dim score ______ To 3000 ) As Integer
Dim xm _____ To 1000 ) As String
Private Sub Command1_Click()

Dim i As Integer, t As Integer, code As Integer, mc As Integer

Dim a (0 To 100) As Integer

Dim b (0 To 100) As Integer

Dim codena _________ To 3 ) As String

codena(1) = “游泳” ：codena(2) = “跑步” ：codena(3) = “跳远”

code = Val(Text1.Text)

For i = 0 To 100

a(i) = 0

Next i

sum = 0

For i = 1 To m ’计算每个分数的个数及体能测试优秀的人数

t = ______

a(score(t)) = a(score(t)) +1

If score(t) >= 90 Then sum = sum+1

Next i

mc = 1

For i = 100 To 0 Step -1 ’计算每个分数的名次

If a(i) <> 0 Then

b(i) = mc

mc = ____

End If

Next i

List2.Clear

List2.AddItem ＂姓名＂+ ____ +＂名次＂

For i = 1 To m

’ 在 List2 中输出 m 个学生的姓名、制定项目的分数以及名次，代码略

Next i

Sum = Int( sum / m * 10000 + 0.5 ) / 100

Label2.Caption = “ 优秀率是：” + Str( sum ) + ” % ”

End Sub
Private Sub Form_Load()
’从数据库读取姓名存入数组 xm，体能测试数据存入数组 score，总人数存入变量 m
’代码略
End Sub