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

js.jye.ai

js.jye.ai

。
（2）請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。
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 （　　）
'本過(guò)程在文本框 Text1 中輸入班級(jí)名稱(chēng)，從數(shù)據(jù)庫(kù)中讀取指定班級(jí)的學(xué)號(hào)、姓名和成績(jī)的'數(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ù)″
'本過(guò)程的其他語(yǔ)句略
End Sub
Private Sub Command2_Click （　?。?br />Dim wz（1 To 40）As Integer
Dim i As Integer,j  As Integer
List2．AddItem“學(xué)號(hào)″&″″&″姓 名″&″″&″成績(jī)″&″″&″位置″
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è)字符長(zhǎng)度
Dim i As Integer
③
For i=1 To 5-Len（c）
adj=adj+″″
Next i
End Function