怎样用ASP代码求出一个有10个值数组里最接近平均值的数

<%
Dim MyArray
MyArray = Array(1,2,3,4,5,6,7,8,9,10)

'先求平均值
Dim Total=0
Dim Average
For i=0 To 9
Total=Total+MyArray(i)
Next i
Average=Total/10

'求数组中最接近平均值的数
Dim ReturnValue
Dim temp=ABS(MyArray(0)-Average)
ReturnValue=MyArray(0)
For i=1 To 9
If temp>ABS(MyArray(i)-Average) then
temp=ABS(MyArray(i)-Average)
ReturnValue=MyArray(i)
Endif
Next i
response.write ReturnValue
%>

可能效率不高,但没想到更好的办法