国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > ASP > 正文

如何用ASP實(shí)現(xiàn)去掉三個(gè)最高分和三個(gè)最低分_ASP教程

2024-05-04 11:03:25
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

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

問(wèn)題:用asp如何實(shí)現(xiàn)去掉三個(gè)最高分和三個(gè)最低分?

解決思路:

1、將整個(gè)數(shù)組排序,刪除兩端的三個(gè)最大值和三個(gè)最小值(另一網(wǎng)友提出的?。?/p>

2、挑選出其中三個(gè)最大的數(shù)和三個(gè)最小的數(shù),將其刪除!(我的思路!)

我覺(jué)得我的方法應(yīng)該可行一些,因?yàn)橐獎(jiǎng)h除的數(shù)只有三個(gè)最大,三個(gè)最小,沒(méi)有必要把所有的數(shù)都進(jìn)行排序,特別是當(dāng)數(shù)據(jù)很多時(shí),將會(huì)浪費(fèi)很多的資源!我寫的序如下:

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

其中有三個(gè)子程序:

1、DeleteMax(Arr_total,willdelete)

功能:刪除若干個(gè)最大的數(shù),Arr_total:數(shù)組的最大可用下標(biāo),willdelete:將要?jiǎng)h除的最大數(shù)的個(gè)數(shù)。

2、swap(num_a,num_b)

功能:交換兩個(gè)數(shù)

3、GetBack()

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

心得:

試驗(yàn)出了怎么刪除一個(gè)數(shù)組元素!

巧妙應(yīng)用redim和Preserve語(yǔ)句,如:

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

dim A()
redim A(10)
’想刪除第六個(gè)元素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)用程序時(shí),必須依靠 ActiveX 組件來(lái)強(qiáng)大 Web 應(yīng)用程序的功能,譬如:你需要連接數(shù)據(jù)庫(kù),對(duì)數(shù)據(jù)庫(kù)進(jìn)行在線操作等等。一、 Browser Capabilities 組件眾所周知,并不

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 万年县| 麦盖提县| 江口县| 花垣县| 临沂市| 奉节县| 黄大仙区| 绵阳市| 伊吾县| 太仆寺旗| 龙州县| 杭锦后旗| 于都县| 海盐县| 大港区| 岳阳县| 定远县| 金平| 竹山县| 浮山县| 甘孜县| 依安县| 凭祥市| 邯郸县| 尤溪县| 桓台县| 修武县| 醴陵市| 监利县| 嵊州市| 华宁县| 武定县| 昆明市| 许昌市| 麻栗坡县| 邢台县| 科技| 尚志市| 静安区| 商洛市| 绵竹市|