如何用ASP实现去掉三个最高分和三个最低分

来源：网络编辑：blmbolon 日期：2008-1-30 0:56:03 人气：

更多免费资源请关注久留免费网：http://www.96ew.com/

:久留网

问题:用asp如何实现去掉三个最高分和三个最低分？

解决思路：中国久留网

1、将整个数组排序，删除两端的三个最大值和三个最小值（另一网友提出的！）

96ew_com

2、挑选出其中三个最大的数和三个最小的数，将其删除！（我的思路！）中国久留网

我觉得我的方法应该可行一些，因为要删除的数只有三个最大，三个最小，没有必要把所有的数都进行排序，特别是当数据很多时，将会浪费很多的资源！我写的序如下： 96ew

以下为引用的内容：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim Arr
Arr=array(91,39,46,24,14,56,31,32,56,89) Www@96ew@com

call DeleteMax(UBound(Arr),3)’删除三个最大的数！
call GetBack()’每个数称以-1，将最小的数变成最大的数！
call DeleteMax(UBound(Arr),3)’删除称以-1以后三个最大的数！
call GetBack()’还原每一个数
for kk= 0 to UBound(Arr)’输出每一个数
    Response.Write(Arr(kk))
    Response.Write("<br>")
next
sub DeleteMax(Arr_total,willdelete)
for m= 1 to willdelete
    for i= 0 to Arr_total-m
        if Arr(i)>Arr(i+1) then
            call swap(Arr(i),Arr(i+1))
        end if
    next
    ReDim Preserve Arr(Arr_total-m)
next
end sub
sub swap(num_a,num_b)’交换两个数
    x=num_a
    num_a=num_b
    num_b=x

中国久留网

end sub
sub GetBack()
for L=0 to UBound(Arr)
Arr(L)=Arr(L)*-1
next
end sub
%> 96ew

中国久留网

其中有三个子程序： Www.96ew.com

1、DeleteMax(Arr_total,willdelete) 久留网

功能：删除若干个最大的数，Arr_total：数组的最大可用下标，willdelete：将要删除的最大数的个数。

96ew

2、swap(num_a,num_b) 久留网

功能：交换两个数久留免费网

3、GetBack()

Www~96ew~com

功能：将数组的每个元素乘以-1,将最小的数变成最大的数！

96ew~com

心得：

Www~96ew~com

试验出了怎么删除一个数组元素！久留网

巧妙应用redim和Preserve语句，如：

久留网

以下为引用的内容：

dim A()
redim A(10)
’想删除第六个元素A(5)
for n= 5 to ubound(A)-1
A(n)=A(n+1)
next
redim Preserve A(ubound(A)-1) 久留网

中国久留网

以上的代码，就能够完成了，不信你试试...

Www@96ew@com

如果您发现本免费资源已过期，请点击报告错误提交过期信息，谢谢!

上一篇文章： ASP实例：实现邮件发送普通附件和嵌入附件

下一篇文章： ASP实例：Access为后台数据库的网站统计系统

　关键字：如何,何用,用A,AS,SP,P实,实现,现去,去掉,掉三,三个,个最,最高,高分,分和,和三,三个,个最,最低