asp數(shù)組隨機排序
功能：將一個數(shù)組打亂它的順序，顯示出來，讓每一次顯示出來的順序都不一樣。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",") '隨機排序 過濾以 , 。得到數(shù)組 tt
leng=UBound(tt) '得到當(dāng)前數(shù)組的長度
randomize '初始化隨機數(shù)
for ii=0 to leng-1 '從 0 到 數(shù)組長度減 1 ,遞減
b=int(rnd()*leng) 'b 等于 數(shù)值型的 隨機 數(shù)組
temp=tt(b) 'tmep 等于 tt(b)
tt(b)=tt(ii)
tt(ii)=temp
Next
For i=0 To leng
response.write tt(i)&"<br>"
next
%>
您發(fā)布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會、集體和公民的合法權(quán)益;
二、不得發(fā)布國家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對自己在本站的言論和行為負責(zé);
三、本站對您所發(fā)布內(nèi)容擁有處置權(quán)。
蘇公網(wǎng)安備 32070502010230號