為促進(jìn)學(xué)生學(xué)習(xí)中互幫互助，每次考后章老師都會(huì)按成績重新編排機(jī)房上課位置，編排要求如下：
（1）按分?jǐn)?shù)從高到低排序。若分?jǐn)?shù)相同，則按學(xué)號進(jìn)行升序排序。
（2）以班級為單位，排出從 1 號開始的機(jī)房座位表。章老師編寫了一個(gè)位置編排功能的 VB 程序，運(yùn)行界面如圖所示。
在文本框 Text1 中輸入班級名稱，單擊“讀數(shù)據(jù)庫”按鈕 Command1 后，從數(shù)據(jù)庫讀取數(shù) 據(jù)并顯示在列表框 List1 中；單擊“編排”按鈕 Command2，在列表框 List2 中輸出學(xué)號、姓名、成績和位置信息。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)以上功能的 VB 程序如圖，請回答下列問題：
（1）分析程序，可知數(shù)據(jù)庫的文件名為

js.jye.ai

js.jye.ai

。
（2）請?jiān)跈M線處填入合適的代碼。
Dim n  As Integer
Dim xh（1 To 40）As Integer,xm（1 To 40）As String,cj（1 To 40）As  Integer
Private Sub Command1_Click （　?。?br />'本過程在文本框 Text1 中輸入班級名稱，從數(shù)據(jù)庫中讀取指定班級的學(xué)號、姓名和成績的'數(shù)據(jù)分別存儲(chǔ)在數(shù)組 xh,xm 和 cj 中
Dim conn As New ADODB．Connection
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=″
+App.Path+″\js.jye.ai″
conn.Open
Dim rs As New ADODB．Recordset rs.ActiveConnection=conn
rs.Open″select*from 技術(shù)″
'本過程的其他語句略
End Sub
Private Sub Command2_Click （　?。?br />Dim wz（1 To 40）As Integer
Dim i As Integer,j  As Integer
List2．AddItem“學(xué)號″&″″&″姓 名″&″″&″成績″&″″&″位置″
For i=1 To n
①
Next i
For i=1 To n
For j=1 To n
If ②Then wz（i）=wz（i）+1
End If
Next j
List2．AddItem adj（Str（xh（i）））+adj（xm（i））+adj（Str（cj（i）））+adj（Str（wz（i）））
Next i
End Sub
Function adj（c As String） As String'固定輸出 5 個(gè)字符長度
Dim i As Integer
③
For i=1 To 5-Len（c）
adj=adj+″″
Next i
End Function