| 本月文章推荐 |
数组数据排序的程序例子发表日期：2000-11-4
|
|
数组数据排序的程序例子
<% ''*** 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 %> |
| 上一篇：纯ASP上传图像文件到数据库的最佳例子
人气:13936 下一篇：网络精英计数器源程序 人气:11969 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
