主题：如何求修剪平均数？

五个数，想去掉最低和最高，求中间三个数的算术平均数，表达是如何写？Excel中有函数调用，FT中没找到函数呢

 这个简单，如下代码，自己改一下

 

Dim arys() As String = {1,3,9,7,5}
array.sort(arys)
arys(0) = 0
arys(arys.length-1) = 0
Dim str As String = String.Join("+", arys)
Dim result As Double = Eval(str) / (arys.length - 2)
msgbox(result)

谢谢有点甜老师