1. 首页
  2. 数据库
  3. 其它
  4. asp数字或者字符排序函数代码

asp数字或者字符排序函数代码

上传者: 2021-01-04 00:31:14上传 PDF文件 15.44KB 热度 15次
代码如下: ‘排序 Function Sort1(ary) Dim KeepChecking,I,FirstValue,SecondValue 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)
下载地址
用户评论