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

js.jye.ai

js.jye.ai

。
（2）請在橫線處填入合適的代碼。
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 （　　）
'本過程在文本框 Text1 中輸入班級名稱，從數據庫中讀取指定班級的學號、姓名和成績的'數據分別存儲在數組 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 技術″
'本過程的其他語句略
End Sub
Private Sub Command2_Click （　　）
Dim wz（1 To 40）As Integer
Dim i As Integer,j  As Integer
List2．AddItem“學號″&″″&″姓 名″&″″&″成績″&″″&″位置″
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 個字符長度
Dim i As Integer
③
For i=1 To 5-Len（c）
adj=adj+″″
Next i
End Function