如何用ASP實現去掉三個最高分和三個最低分_ASP教程

2024-05-04 11:03:25

字體：大中小

來源：轉載

供稿：網友

推薦：用ASP實現在線文章翻譯的功能
有時候想為我們的網頁提供多語言支持，如果一種語言用一張網頁來做實在太麻煩了，幸好Google提供了語言工具功能，下面介紹如何利用它來實現網頁多種語言之間的轉換。lan.htm

問題:用asp如何實現去掉三個最高分和三個最低分？

解決思路：

1、將整個數組排序，刪除兩端的三個最大值和三個最小值（另一網友提出的?。?/p>

2、挑選出其中三個最大的數和三個最小的數，將其刪除！（我的思路?。?/p>

我覺得我的方法應該可行一些，因為要刪除的數只有三個最大，三個最小，沒有必要把所有的數都進行排序，特別是當數據很多時，將會浪費很多的資源！我寫的序如下：

以下為引用的內容：

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