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

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

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

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

7

7

。
（2）請在橫線處填入合適的代碼。
Dim sName（1 To 50）As String'存放學生姓名
Dim sScore（1 To 50）As Integer'存放學生分數(shù)
Dim recCount As Integer'存放學生人數(shù)
Private Sub Form_Load （　?。?br />'本過程從數(shù)據(jù)庫中讀取學生數(shù)據(jù)，存儲在相應的變量中，并在List1中顯示
'代碼略
End Sub
'整數(shù)轉換成長度固定的字符串
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=1 To n-nx
sx=““+sx
Next i

ads=sx

ads=sx

①
End Function
Private Sub Command1_Click （　?。?br />Dim A（0 To 100）As Integer'存放每個分數(shù)的個數(shù)
Dim B（0 To 100）As Integer'存放每個分數(shù)的名次
Dim mc As Integer,score As Integer,i As Integer
For i=0 To 100
A（i）=0
Next i
For i=1 To recCount'計算每個分數(shù)的個數(shù)

A（sscore（i））=A（sscore（i））+1

A（sscore（i））=A（sscore（i））+1

②
Next i
mc=1
For i=100 To 0 Step-1'計算每個分數(shù)的名次
If A（i）＜＞0 Then
B（i）=mc

mc=A（i）+B（i）

mc=A（i）+B（i）

③
End If
Next i
List2．Clear
List2．AddItem“姓名  分數(shù)  名次“
List2．AddItem“----------------“
For i=1 To recCount
score=sScore（i）
mc=B（sScore（i））
List2．AddItem sName（i）+ads（score,5）+“第“+ads（mc,3）+“名“
Next i
End Sub