以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么计算去除3个最小值盒3个最大值后再求平均值,跪求大神指点  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74951)

--  作者:zhaogan
--  发布时间:2015/9/23 12:08:00
--  怎么计算去除3个最小值盒3个最大值后再求平均值,跪求大神指点

图片点击可在新窗口打开查看此主题相关图片如下:平均值.png
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2015/9/23 12:14:00
--  

取出各个值,放进数组里,sort一下,然后去掉前三后三。

 

dim ary() as double = {9,5,8,7,1,4,3,2,6}
array.sort(ary)
dim sum as double = 0
For i As Integer = 3 To ary.length - 4
    sum += ary(i)
    msgbox(ary(i))
Next
msgbox(sum / (ary.length - 6))


--  作者:逛逛
--  发布时间:2015/9/23 12:14:00
--  

加入数组或集合

排序

取中间10个计算


--  作者:zhaogan
--  发布时间:2015/9/23 12:32:00
--  
非常感谢