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

students.jye.ai

students.jye.ai

．
（2）請(qǐng)?jiān)跈M線處填入合適的代碼．
Dim a（1 To 1000）As Integer'存儲(chǔ)某科目的相關(guān)數(shù)據(jù)，數(shù)組大小滿足處理要求
Dim n As Integer'該科目的學(xué)生總?cè)藬?shù)
Private Sub Command1_Click（　　）
'從數(shù)據(jù)庫(kù)中讀取指定科目的各相關(guān)數(shù)據(jù)，存儲(chǔ)在數(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
'本過(guò)程的其他語(yǔ)句略
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.