以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何求修剪平均数？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49845)
--  作者：yooyes
--  发布时间：2014/4/24 21:12:00
--  如何求修剪平均数？
五个数，想去掉最低和最高，求中间三个数的算术平均数，表达是如何写？Excel中有函数调用，FT中没找到函数呢
--  作者：有点甜
--  发布时间：2014/4/24 21:21:00
--  

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

 

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)
--  作者：yooyes
--  发布时间：2014/4/24 21:39:00
--  
谢谢有点甜老师