[加试题]将一组数据按大小顺序排列，处在最中间位置的一个叫做这组数据的中位数．当数据个数n为奇数时处于中间位置的变量值即为中位数；当个数n为偶数时，中位数则为处于中间位置的2个变量值的平均数．
  小李编写一个计算中位数的VB程序：从数据库读取某一指定科目的相关数据存储在数组a中，计算并输出这组数据的中位数．
  程序功能如下：在文本框Text1中输入科目名称，单击“读数据库”按钮Command1．程序从数据库读数；单击“输出中位数”按钮Command2，程序进行统计处理，输出结果在文本框Text2中．程序运行界面如图所示．
实现以上功能的VB程序如下，请回答下列问题：
（1）分析程序，可知数据库的文件名为

students.jye.ai

students.jye.ai

．
（2）请在横线处填入合适的代码．
Dim a（1 To 1000）As Integer'存储某科目的相关数据，数组大小满足处理要求
Dim nA s Inleger'该科目的学生总人数
Private Sub Command1-Click（　　）
’从数据库读指定科目各相关数据，存储在数组a中
    Dim conn As New ADODB．Connection,g As New ADODB．Recordset
      conn,ConnectionString=“Provider=Microsoft.ACF．OLEDB.12.0；Data Source=“+
App.Path+“\students,accdb“
      conn.Open
      Set rs.ActiveConnection=c onn
’本过程的其他语句略
End Sub
Private Sub Command2_{_}Click（　　）
    Dim i As Integer,j As Integer,k As Integer,kt As Integer
    Dim c As Integer,zws As Single
    For i=1 To n-1

①

①

        For j=i+1 To n
            kt=a（j）：a（j）=a（k）：a（k）=kt
            End If
        Next j
    Next i
    c=n\2
    If n Mod 2=1 Then
        zws=

②

②

    Else
        zws=（a（c）+a（c+1））/2
    End If
        Text2．Text=Sur（zws）
End Sub.