统计学中的“中位数”是这样的一种数:一组数据里的一半的数据比它大,而另外一半数据比它小。计算一组数据的中位数的方法是:把所有数据按照非升的次序排列。如果数据的个数是奇数,则中间那个数就是这组数据的中位数;如果个数是偶数,则中间两个数的算术平均值是中位数。
小诗收集了全市部分教职员工的工资数据,设计了找中位数的程序如下。小诗收集的人员工资数据放在了Access数据库中。小诗的程序在窗体加载时读出了所有人员的数据:姓名放在数组a中,对应的工资放在数组b中,数据总记录数放在n中。单击按钮Command1后先以工资按非升的次序排序,然后找出中位数。
Dim a(1 To 1000) As String
Dim b(1 To 1000) As Single
Dim n As Integer
‘数据库读取所有人员的数据代码略
Private Sub Command1_Click()
Dim i As Integer , j As Integer , k As Integer
Dim tmp1 As Single, tmp2 As String
Dim median As Single
For i = n To 2 step -1
k = i
For j = i-1 To 1 step -1
If Then
k = j
End If
Next j
If k <> i Then
tmp1 = b(k): b(k) = b(i): b(i) = tmp1
tmp2 = a(k): a(k) = a(i): a(i) = tmp2
End If
Next i
For i = 1 To n
List1.AddItem Str(i) & " " & a(i) & " " & Str(b(i))
Next i
If n Mod 2 = 0 Then
median =
Else
median = b(n\2+1)
End If
Label1.Caption = "中位数是:" & Str(median)
End Sub