查看: 13|回复: 0

[文章教程] 数组排序函数

[复制链接]
冰河非非 发表于 2020-1-11 17:19:08 | 显示全部楼层 |阅读模式

  1. Dim  rray
  2. rray = Array(1, 5, 123, 12, 98)
  3. rray = Sort(rray)
  4. For I = LBound(rray) To UBound(rray)
  5.     Response.Write rray(I) & "<br>"
  6. Next



  7. Function Sort(ary)  '数组排序函数
  8.     KeepChecking = True
  9.     Do Until KeepChecking = False
  10.         KeepChecking = False
  11.         For I = 0 To UBound(ary)
  12.             If I = UBound(ary) Then Exit For
  13.             If ary(I) > ary(I + 1) Then
  14.                 FirstValue = ary(I)
  15.                 SecondValue = ary(I + 1)
  16.                 ary(I) = SecondValue
  17.                 ary(I + 1) = FirstValue
  18.                 KeepChecking = True
  19.             End If
  20.         Next
  21.     Loop
  22.     Sort = ary
  23. End Function
复制代码



您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号