开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › ASP实现冒泡排序算法
返回列表 发新帖
查看: 518|回复: 2

[ASP函数] ASP实现冒泡排序算法

[复制链接]
xuanxiao 发表于 2022-8-6 10:45:58 | 显示全部楼层 |阅读模式
  1. Dim arrTestArray

  3. arrTestArray = Array("a5","a4","a3","a2","a1")

  5. BubbleSort arrTestArray

  7. for i = 0 to 4
  8.   Response.Write arrTestArray(i) & vbnewline
  9. Next
  10. Function BubbleSort(arrValues)

  12.      Dim j, k, Temp
  13.      For j = LBound(arrValues) To UBound(arrValues)
  14.          For k = j + 1 To UBound(arrValues)
  15.              If (arrValues(j) > arrValues(k)) Then
  16.                  Temp = arrValues(j)
  17.                  arrValues(j) = arrValues(k)
  18.                  arrValues(k) = Temp
  19.              End If
  20.          Next
  21.      Next
  22. End Function
复制代码


QQ截图20220806104505.png
ASP币如何冲？请看这里
回复

使用道具 举报

冰河非非 发表于 2023-1-29 23:40:00 | 显示全部楼层
arrTestArray = Array("安全9,规划49,违规17,办学2")

按数字重高到底怎么排？
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

 楼主| xuanxiao 发表于 2023-2-1 00:14:28 | 显示全部楼层
冰河非非 发表于 2023-1-29 23:40
arrTestArray = Array("安全9,规划49,违规17,办学2")

按数字重高到底怎么排？

  1. arrTestArray = Array("9","49","17","2","1")

  3. BubbleSort arrTestArray

  5. for i = 0 to UBound(arrTestArray)
  6.   Response.Write arrTestArray(i) & vbnewline
  7. Next
  8. Function BubbleSort(arrValues)

  10.      Dim j, k, Temp
  11.      For j = LBound(arrValues) To UBound(arrValues)
  12.          For k = j + 1 To UBound(arrValues)
  13.              If (clng(arrValues(j)) > clng(arrValues(k))) Then
  14.                  Temp = arrValues(j)
  15.                  arrValues(j) = arrValues(k)
  16.                  arrValues(k) = Temp
  17.              End If
  18.          Next
  19.      Next
  20. End Function
复制代码


纯数字可以，输出的时候最好处理下类似这样，然后根据指定的数字去获取对应字符串
微信截图_20230201001505.png
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

在线客服

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