推薦:用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 %> |
其中有三個子程序:
1、DeleteMax(Arr_total,willdelete)
功能:刪除若干個最大的數,Arr_total:數組的最大可用下標,willdelete:將要刪除的最大數的個數。
2、swap(num_a,num_b)
功能:交換兩個數
3、GetBack()
功能:將數組的每個元素乘以-1,將最小的數變成最大的數!
心得:
試驗出了怎麼刪除一個數組元素!
巧妙應用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) |
以上的代碼,就能夠完成了,不信你試試...
分享:ASP基礎教程:其它的ASP常用組件當你用ASP 編寫服務器端應用程序時,必須依靠ActiveX 組件來強大Web 應用程序的功能,譬如:你需要連接數據庫,對數據庫進行在線操作等等。一、 Browser Capabilities 組件眾所周知,並不