题库 高中信息
题干
统计学中的“中位数”是这样的一种数：一组数据里的一半的数据比它大，而另外一半数据比它小。计算一组数据的中位数的方法是：把所有数据按照非升的次序排列。如果数据的个数是奇数，则中间那个数就是这组数据的中位数；如果个数是偶数，则中间两个数的算
术平均值是中位数。
Dim a(1 To 1000) As String
Dim b(1 To 1000) As Single
Dim n As Integer
（2）将划线处代码补充完整。
（3）程序代码中，加框处有错，请改正。___________
（4）如图所示，数据库中一共有___________个教职员工。
术平均值是中位数。
小诗收集了全市部分教职员工的工资数据，设计了找中位数的程序如下。小诗收集的人员工资数据放在了 Access 数据库中。小诗的程序在窗体加载时读出了所有人员的数据：姓名放在数组a中，对应的工资放在数组b中，数据总记录数放在n中。单击按钮 Command1后先以工资按非升的次序排序，然后找出中位数。
（1）要使程序运行时，从数据库中读取所有人员的数据，可在_____________事件过程中添加相关代码。（单选，填字母：| A．Form1_load/ | B．Form_load/ | C．Form1.Caption） |
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 b(j) > b(i) 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（2）将划线处代码补充完整。
（3）程序代码中，加框处有错，请改正。___________
（4）如图所示，数据库中一共有___________个教职员工。
答案(点此获取答案解析）
'改错