將一組數(shù)據(jù)按大小順序排列，處在最中間位置的一個數(shù)叫做這組數(shù)據(jù)的中位數(shù)．當(dāng)數(shù)據(jù)個數(shù)n為奇數(shù)時，處于中間位置的變量值即為中位數(shù)；當(dāng)個數(shù)n為偶數(shù)時，中位數(shù)則處于中間位置的2個變量值的平均數(shù)．
小李編寫了一個計算機(jī)中位數(shù)的VB程序：從數(shù)據(jù)庫讀取某一指定科目的相關(guān)數(shù)據(jù)存儲在數(shù)組a中，計算并輸出這組數(shù)據(jù)的中位數(shù)．
程序功能如下：在文本框Text1中輸入科目名稱，單擊“讀數(shù)據(jù)庫”按鈕Command1，程序從數(shù)據(jù)庫讀取數(shù)據(jù)；單擊“輸出中位數(shù)”按鈕Command2，程序進(jìn)行統(tǒng)計處理，輸出結(jié)果在文本框Text2中．程序運行界面如圖所示．
實現(xiàn)以上功能的VB程序如下，請回答下列問題：
（1）分析程序，可知數(shù)據(jù)庫的文件名為

students.jye.ai

students.jye.ai

．
（2）請在橫線處填入合適的代碼．
Dim a（1 To 1000）As Integer'存儲某科目的相關(guān)數(shù)據(jù)，數(shù)組大小滿足處理要求
Dim n As Integer'該科目的學(xué)生總?cè)藬?shù)
Private Sub Command1_Click（　?。?br />'從數(shù)據(jù)庫中讀取指定科目的各相關(guān)數(shù)據(jù)，存儲在數(shù)組a中
        Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
            conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\students.jye.ai“
            conn.Open
            Set rs.ActiveConnection=conn
'本過程的其他語句略
End Sub
Private Sub Command2_Click（　　）
        Dim i As Integer,j As Interger,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
                        If a（j）＞a（k） Then
                              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=Str（zws）
End Sub.