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

2024-05-04 11:03:25

字体：大中小

来源：转载

供稿：网友

推荐：用ASP实现在线文章翻译的功能
有时候想为我们的网页提供多语言支持，如果一种语言用一张网页来做实在太麻烦了，幸好Google提供了语言工具功能，下面介绍如何利用它来实现网页多种语言之间的转换。lan.htm

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

解决思路：

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

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

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

以下为引用的内容：

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

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
%>