小王編寫了一個“學生體能情況分析”程序，其功能是分項計算名次和優秀率（分數90分及以上為優秀）。運行程序時，在列表框List1中顯示所有學生的3項體能測試分數，在文本框 Text1中輸入測試項目代碼（1表示游泳，2表示跑步，3表示跳遠），單擊“計算”按鈕 Command1后，計算結果分別顯示在列表框List2和標簽 Label2中。程序運行界面如圖1所示。
程序設計過程中數據的存儲和計算方法如下：
（1）學生體能分數的存儲：如圖2所示，第1位學生的游泳、跑步、跳遠分數依次存入數組 score的第1、2、3個元素里，第2位學生的游泳、跑步、跳遠分數依次存入數組 score的第4、5、6個元素里，以此類推。
（2）計算名次的算法：先統計每個分數的個數，存入數組a,如圖3中a（96）值為9，表示共有9個96分；然后按照分數從高到低依次計算每個有效分數（該分數的個數不為0）對應的名次存入數組b,分數相同時名次并列，如圖3中b（96）值為10，表示96分的名次是（并列）第10名，以此類推。

分數	100	99	98	97	96	…	0
數組a	3	0	0	6	9	…	0
數組b	1			4	10	…

請回答下列問題：
（1）根據圖1中列表框 List1中的信息和圖2所示的數據存儲方法可知，數組元素 score（23）的值為

100

100

（填數字）。
（2）實現上述功能的VB程序如下，請在①、②、③的橫線處填入合適的代碼。
Dim m As Integer'學生人數
Dim score（1To 3000 ）As Integer'存放學生分數
Dim xm（1To1000）As String'存放學生姓名
Private Sub Commandl_Click（　　）
Dim i As Integer,t As Integer,code As Integer,mc As Integer
Dima（0 To 100）As Integer'存放每個分數的個數
Dimb（0To100）As Integer'存放每個分數的名次
Dim code_n（I To 3）As String
code_n（1）=″游泳″：code_n（2）=″跑步″：code_n（3）=″跳遠″
code=val（Text1．Text）
For i=0  To 100
a（i）=0
Next i
sum=0
For i=1 Tom′計算每個分數的個數及體能測試優秀的人數
t=

①

①

a（score（t））=a（score（t））+1
If score（t）＞=90 Then sum=sum+1
Next
mc=1
For i=100 To 0 Step-1'計算每個分數的名次
Ifa（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=lnt（sum/m*10000+0.5）/100
Label2．Caption=“優秀率是：“+Str（sum）+″%″
End sub
Private Sub form_Load（　　）
'從數據庫讀取姓名存入數組xm,體能測試數據存入數組 score,總人數存入變量m。
'代碼略
End Sub