输入10个数，求去掉一个最高、一个最低后余下的数的平均数

n=inputbox("请输入10个数：（用空格分开）","提示","32 45 4 43 2 4 65 54 432 23")
s=split(n):l=ubound(s)
sm=0
x=ccur(s(0)):y=ccur(s(0))
for i=0 to l
sm=sm+s(i)
if ccur(s(i))>=x then x= ccur(s(i))
if ccur(s(i))<=y then y= ccur(s(i))
next
msgbox n & vbcrlf & "最大数：" & x & vbcrlf & "最小数：" & y & vbcrlf & "剩下数的平均值："&(sm-x-y)/(l-2)

input "第一个数" to a
max=a
min=a
s=a
for i=2 to 10
input "请输入" to a
if a>max
max=a
endif
if a<min
min=a
endif
s=s+a
endfor
? "最大数：" ,max
? "最小数：",min
? "平均数",s/10