[加試題]將一組數(shù)據(jù)按大小順序排列，處在最中間位置的一個叫做這組數(shù)據(jù)的中位數(shù)．當(dāng)數(shù)據(jù)個數(shù)n為奇數(shù)時處于中間位置的變量值即為中位數(shù)；當(dāng)個數(shù)n為偶數(shù)時，中位數(shù)則為處于中間位置的2個變量值的平均數(shù)．
  小李編寫一個計算中位數(shù)的VB程序：從數(shù)據(jù)庫讀取某一指定科目的相關(guān)數(shù)據(jù)存儲在數(shù)組a中，計算并輸出這組數(shù)據(jù)的中位數(shù)．
  程序功能如下：在文本框Text1中輸入科目名稱，單擊“讀數(shù)據(jù)庫”按鈕Command1．程序從數(shù)據(jù)庫讀數(shù)；單擊“輸出中位數(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 nA s Inleger'該科目的學(xué)生總?cè)藬?shù)
Private Sub Command1-Click（　?。?br />’從數(shù)據(jù)庫讀指定科目各相關(guān)數(shù)據(jù)，存儲在數(shù)組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（　?。?br />    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.