小王編寫了一個依據成績統計名次的VB程序，成績為0到100之間的整數．算法的基本思想：先統計每個分數的個數，然后按照分數從高到低依次計算每個有效分數（該分數的個數不為0）對應的名次，分數相同時名次并列．最高分為第1名，該分數的名次與個數之和為下一個有效分數的名次，以此類推．程序用數組A存放每個分數對應的個數，數組B存放每個分數對應的名次．例如，下表中最高分100分有2個，并列第1名，則分數96的名次為分數100的名次加上分數100的個數，即第3名．

分數	100	99	98	97	96	95	94	…	0
個數（A數組）	2	0	0	0	1	0	3		0
名次（B數組）	1				3		4

程序運行時，學生數據顯示在列表框List1中，單擊“計算”按鈕Command1，計算結果顯示在列表框List2，程序運行界面如圖如所示．

實現上述功能的VB程序如下：請回答下列問題：
（1）如表示，若分數93的個數為2，則該分數對應的名次為

7

7

．
（2）請在橫線處填入合適的代碼
Dim sName（1to 50）As String‘存放學生姓名
Dim sScore（1to 50）As Integer’存放學生分數
Dim recount As Integer’存放學生人數
Private Sub Form_load （　　）
‘本過程從數據庫中讀取學生數據，存儲在相應的變量中，并在List1中顯示
‘代碼略
End Sub
‘整數轉換成長度固定的字符串
Function ads（x As Integer,n As Integer）As string
Dim sx As String,nx As Integer,i As Integer
sx=Str（x）：nx=Len（sx）
For i=1to n-nx
sx=””+sx
Next i
①

abs=sx

abs=sx

End Function
Private Sub Command1_click（　　）
Dim A（0to 100）As Integer’存放每個分數的個數
Dim B（0to 100）As Integer’存放每個分數的名次
Dim mc As Integer,score As integer,i As Integer
For i=0to 100⑧
A（i）=0
Next i
For i=1to recount’計算每個分數的個數
②

A（sScore（i））=A（sScore（i））+1

A（sScore（i））=A（sScore（i））+1

Next i
mc=1
For i=100to 0step-1’計算每個分數名次
If A（i）＜＞0Then
B（i）=mc
③

mc=mc+A（i）或mc=B（i）+A（i）

mc=mc+A（i）或mc=B（i）+A（i）

End if
Next i
List2．clear
List2．additem“姓名  分數  名次”
List2．additem”--------”
For i=1to recount
score=sScore（i）
mc=B（sScore（i））
list2．additem sName（i）+ads（score,5）+”第”+ads（mc,3）+”名”
Next i
End Sub.