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

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

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)