当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何用ASP实现去掉三个最高分和三个最低分

ASP
编写通用的asp防注入程序
vbs(asp)下的Function 语句
ASP中类Class相关内容的整理资料
字符批量替换程序asp服务器版
旁注-网站小助手旭方修改免杀asp版
用正则表达式写的HTML分离函数
asp中"无限流"分页程序代码
asp的一个日期格式化函数
asp中创建多级目录的两段代码
asp中去除内容HTML标签的三个function函数
chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解
方便的大家admin及admin888 经过 md5加密后16位和32位代码
可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集
asp动态级联菜单代码
ASP中经常使用的SQL语句与教程说明
实例分析之用ASP编程实现网络内容快速查找的代码
服务端 VBScript 与 JScript 几个相同特性的写法与示例
ASP 环境下 VBS 事件应用 示例代码
asp 之上传漏洞终结篇
asp中一段防SQL注入的通用脚本

No. « 57 58 59 60 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 246 ::
收藏到网摘: n/a

问题:用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)

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