|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。明天又匡助了一个网友,我的标语是"以匡助他人为康乐!"
成绩:用asp怎样完成往失落三个最高分和三个最低分?
办理思绪:
1、将全部数组排序,删除两头的三个最年夜值和三个最小值(另外一网友提出的!)
2、选择出个中三个最年夜的数和三个最小的数,将其删除!(我的思绪!)
我以为我的办法应当可行一些,由于要删除的数只要三个最年夜,三个最小,没有需要把一切的数都举行排序,出格是当数据良多时,将会华侈良多的资本!我写的序以下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
dimArr
Arr=array(91,39,46,24,14,56,31,32,56,89)
callDeleteMax(UBound(Arr),3)’删除三个最年夜的数!
callGetBack()’每一个数称以-1,将最小的数酿成最年夜的数!
callDeleteMax(UBound(Arr),3)’删除称以-1今后三个最年夜的数!
callGetBack()’复原每个数
forkk=0toUBound(Arr)’输入每个数
Response.Write(Arr(kk))
Response.Write("<br>")
next
subDeleteMax(Arr_total,willdelete)
form=1towilldelete
fori=0toArr_total-m
ifArr(i)>Arr(i+1)then
callswap(Arr(i),Arr(i+1))
endif
next
ReDimPreserveArr(Arr_total-m)
next
endsub
subswap(num_a,num_b)’互换两个数
x=num_a
num_a=num_b
num_b=x
endsub
subGetBack()
forL=0toUBound(Arr)
Arr(L)=Arr(L)*-1
next
endsub
%>个中有三个子程序:
1、DeleteMax(Arr_total,willdelete)
功效:删除多少个最年夜的数,Arr_total:数组的最年夜可用下标,willdelete:将要删除的最年夜数的个数。
2、swap(num_a,num_b)
功效:互换两个数
3、GetBack()
功效:将数组的每一个元素乘以-1,将最小的数酿成最年夜的数!
助民气得:
实验出了怎样删除一个数组元素!
奇妙使用redim和Preserve语句,如:
dimA()
redimA(10)
’想删除第六个元素A(5)
forn=5toubound(A)-1
A(n)=A(n+1)
next
redimPreserveA(ubound(A)-1)以上的代码,就可以够完成了,不信你尝尝...无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的; |
|