为促进学生学习中互帮互助，每次考后章老师都会按成绩重新编排机房上课位置，编排要求如下：
（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