如何用ASP實現(xiàn)去掉三個最高分和三個最低分_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

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

lan.htm
      問題:用asp如何實現(xiàn)去掉三個最高分和三個最低分？
      


      解決思路：
      


      1、將整個數(shù)組排序，刪除兩端的三個最大值和三個最小值（另一網(wǎng)友提出的！）
      


      2、挑選出其中三個最大的數(shù)和三個最小的數(shù)，將其刪除！（我的思路！）
      


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


      


      

    

        
      

            以下為引用的內(nèi)容：
      

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

            
      call DeleteMax(UBound(Arr),3)’刪除三個最大的數(shù)！ 
      call GetBack()’每個數(shù)稱以-1，將最小的數(shù)變成最大的數(shù)！ 
      call DeleteMax(UBound(Arr),3)’刪除稱以-1以后三個最大的數(shù)！ 
      call GetBack()’還原每一個數(shù) 
      for kk= 0 to UBound(Arr)’輸出每一個數(shù) 
          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)’交換兩個數(shù) 
          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)
      


      功能：刪除若干個最大的數(shù)，Arr_total：數(shù)組的最大可用下標(biāo)，willdelete：將要刪除的最大數(shù)的個數(shù)。
      


      2、swap(num_a,num_b)
      


      功能：交換兩個數(shù)
      


      3、GetBack()
      


      功能：將數(shù)組的每個元素乘以-1,將最小的數(shù)變成最大的數(shù)！
      


      心得：
      


      試驗出了怎么刪除一個數(shù)組元素！
      


      巧妙應(yīng)用redim和Preserve語句，如：
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      

            
      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基礎(chǔ)教程：其它的ASP常用組件
      當(dāng)你用 ASP 編寫服務(wù)器端應(yīng)用程序時，必須依靠 ActiveX 組件來強大 Web 應(yīng)用程序的功能，譬如：你需要連接數(shù)據(jù)庫，對數(shù)據(jù)庫進行在線操作等等。

一、 Browser Capabilities 組件眾所周知，并不
      


      

      


      來源：模板無憂//所屬分類：ASP教程/更新時間：2008-08-22


      


      



      


      



      相關(guān)ASP教程：