ASP实验2：vbscript语言基础

作业内容：

1）写一个函数，要求：去掉一个最高分和去掉一个最低分后，求平均分。测试数据{69,78,100,76,98,57,100,99}
2）写一个过程，输出1+(1+2)+(1+2+3)+…+(1+2+…+n)的值

1.答案：

<%
	dim arr(7)
	arr(0)=69
	arr(1)=78
	arr(2)=100
	arr(3)=76
	arr(4)=98
	arr(5)=57
	arr(6)=100
	arr(7)=99
	
	avg(arr)
	
	Function avg(arr())
		dim max,min,sum
		max=arr(0)
		min=arr(0)
		sum=0
		For Each item in arr
			If item>max then
				max=item
			End If
			If item<min then
				min=item
			End If
			sum=sum+item
		Next
		sum=sum-max-min
		sum=sum/6
		Response.Write(sum)
	End Function
%>

2.答案：

<%
	sum(100)
	
	Function sum(n)
		dim he
		he=0
		For i=1 to n
			For j=1 to i
				he=he+j
			Next
		Next
		Response.Write(he)
	End Function
%>