[加試題]將一組數(shù)據(jù)按大小順序排列,處在最中間位置的一個(gè)叫做這組數(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ì)算中位數(shù)的VB程序:從數(shù)據(jù)庫(kù)讀取某一指定科目的相關(guān)數(shù)據(jù)存儲(chǔ)在數(shù)組a中,計(jì)算并輸出這組數(shù)據(jù)的中位數(shù).
程序功能如下:在文本框Text1中輸入科目名稱,單擊“讀數(shù)據(jù)庫(kù)”按鈕Command1.程序從數(shù)據(jù)庫(kù)讀數(shù);單擊“輸出中位數(shù)”按鈕Command2,程序進(jìn)行統(tǒng)計(jì)處理,輸出結(jié)果在文本框Text2中.程序運(yùn)行界面如圖所示.
實(shí)現(xiàn)以上功能的VB程序如下,請(qǐng)回答下列問(wèn)題:
(1)分析程序,可知數(shù)據(jù)庫(kù)的文件名為
students.accdb
students.accdb
.
(2)請(qǐng)?jiān)跈M線處填入合適的代碼.
Dim a(1 To 1000)As Integer'存儲(chǔ)某科目的相關(guān)數(shù)據(jù),數(shù)組大小滿足處理要求
Dim nA s Inleger'該科目的學(xué)生總?cè)藬?shù)
Private Sub Command1-Click( ?。?br />’從數(shù)據(jù)庫(kù)讀指定科目各相關(guān)數(shù)據(jù),存儲(chǔ)在數(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
’本過(guò)程的其他語(yǔ)句略
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.