用VBA写一个求一组数据中位数的程序

Sub FindMedian()

Dim arr() As Variant '定义一个数组 Dim i As Integer, j As Integer Dim temp As Variant

'将数据存入数组中 arr = Array(1, 3, 5, 7, 9)

'使用冒泡排序将数组排序 For i = LBound(arr) To UBound(arr) For j = i + 1 To UBound(arr) If arr(i) > arr(j) Then temp = arr(j) arr(j) = arr(i) arr(i) = temp End If Next j Next i

'判断数组长度的奇偶性 If UBound(arr) Mod 2 = 0 Then '数组长度为偶数，取中间两个数的平均值 MsgBox "中位数为：" & (arr(UBound(arr) / 2) + arr((UBound(arr) / 2) + 1)) / 2 Else '数组长度为奇数，取中间的数 MsgBox "中位数为：" & arr((UBound(arr) + 1) / 2) End If

End Sub