【算法表达】 Function 均值(Mode As Byte,ByVal n As Long,ByRef 源数组() As Long) As Long Dim 库值 As Long Dim 补偿库 As Long Dim 补偿值 As Long Dim 模糊均值 As Long Dim i As Long '初始化 模糊均值 = 源数组(1) 库值 = 1 补偿库 = 0 For i = 2 to n If 模糊均值 > 源数组(i) Then 补偿值 = (模糊均值 - 源数组(i)) * 库值 + 补偿库 模糊均值 = 源数组(i) + 补偿值 / i 补偿库 = 补偿值 Mod i ElseIf 模糊均值 < 源数组(i) Then 补偿值 = 源数组(i) - 模糊均值 + 补偿库 模糊均值 = 模糊均值 + 补偿值 / i 补偿库 = 补偿值 Mod i End If 库值 = 库值 + 1 Next 均值 = 模糊均值 End Function