用ASP求平均分源码

<%
dim fs(4),i,out_n
fs(0)=85
fs(1)=80
fs(2)=75
fs(3)=70
fs(4)=65
for i=0 to (ubound(fs))
  out_n=out_n+fs(i)
next
out_n = out_n/(ubound(fs)+1)
response.write "平均分为："&"    "&out_n
%>