数组数据排序的程序例子
点击次数：25 次 发布日期：2008-11-26 17:35:01 作者：源代码网
|
<% ""*** build example array to show that this thing can sort ""*** alpha-numeric arrays Dim MyArray MyArray = Array(1,5,"shawn","says","hello"2m骺噃嶤123,12,98) MyArray = Sort(MyArray) For I = 0 to Ubound(MyArray) Response.Write MyArray(I) & "<br>" & vbCRLF Next Response.End ""*** Sorter Function that takes an array and sorts it Function Sort(ary) KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If ary(I) > ary(I+1) Then FirstValue = ary(I) SecondValue = ary(I+1) ary(I) = SecondValue ary(I+1) = FirstValue KeepChecking = TRUE End If Next Loop Sort = ary End Function %> 源代码网供稿. |
