小胡收集了2018届高三学生高考成绩及相关的选科情况，存入数据库中，部分界面截图如图所示：

程序功能如下：
在窗体加载时，从数据库中读取学生总数N；读取N名学生的信息存储在相关数组中。N名学生的学号依次存储在数组xh（1）～xh（n） 中；学号为i的学生的总成绩存储在数组 zf（i）中，课程选修信息存储在xk（i）中；
点击“统计”按钮后，程序筛选出所有技术考生的相关信息，并计算该学生在所有技术考生中的排名（总分相同的，排名也相同）。
实现上述功能的VB程序如下，请回答下列问题：
（1）请在横线处填入合适的代码。
Dim xh（1 To 1000）As Integer’数据库中读取时第i为学生的学号存储在xh（i）
Dim zf（1 To 1000）As Integer’学号为i的考生的总分存储在zf（i）
Dim xk（1 To 1000）As String’学号为i的考生的选考课程信息存储在zf（i）
’数据格式**-**-**（如：物理-化学-生物）
Dim jspm（1 To 1000）As Integer’学号为i的技术选考生的总分在所有技术考生中的
’排名存储在数组jspm（i）
Private Sub Form_Load （　　）
Dim conn   As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim  constr  as string,sql as string
Constr=“Provider=Microsoft.ace.OLEDB.12.0；“
Constr=constr &“Data Source=“& App.Path+“\data\stu2018．accdb“
conn.ConnectionString=constr
conn.open （　　）
rs.Open“select*from 2018cj“，conn
i=0
Do While Not rs.EOF
i=i+1
xh（i）=rs（“xuehao”）
zf（rs（“xuehao”））=rs（“fenshu”）
xk（rs（“xuehao”））=rs（“xkinfo”）

①

①

Loop
N=i
End Sub
’判断选科信息info中是否包含科目km
Function YouKM（ByVal km As String,ByVal Info As String） As Boolean
Dim km1 As String
YouKM=False
For i=1 To 3
If

②

②

 Then
YouKM=True
Exit For
End If
Next i
End Function
'为技术学科考试求名次
Private Sub Command1_Click （　　）
Dim jsinfo（1 To 1000）As Integer’依次存储每个技术选考生的学号和成绩
Dim k as integer’存储找到的技术选考学生的数量
'将所有选考“技术”的考生学号、成绩依次存入数组jsinfo中
k=0
For i=1 To n
If

③

③

Then
k=k+1
jsinfo（2*k-1）=xh（i）
jsinfo（2*k）=cj（xh（i））
End If
Next i
'学号为i的学生在技术选考生中的排名，存入jspm（i）中
For i=1 To k
mc=0
For j=1 To k
If jsinfo （2*j）＞jsinfo （2*i） Then mc=mc+1
Next j
jspm（jsinfo（2*i-1））=

④

④

Next i
'输出所有技术考试的学号、成绩、技术排名信息  代码略
End Sub