ASP实现冒泡排序算法

1. Dim arrTestArray
   
2. 
   
3. arrTestArray = Array("a5","a4","a3","a2","a1")
   
4. 
   
5. BubbleSort arrTestArray
   
6. 
   
7. for i = 0 to 4
   
8.   Response.Write arrTestArray(i) & vbnewline
   
9. Next
   
10. Function BubbleSort(arrValues)
    
11. 
    
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

复制代码

arrTestArray = Array("安全9,规划49,违规17,办学2")

按数字重高到底怎么排？

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

按数字重高到底怎么排？

1. arrTestArray = Array("9","49","17","2","1")
   
2. 
   
3. BubbleSort arrTestArray
   
4. 
   
5. for i = 0 to UBound(arrTestArray)
   
6.   Response.Write arrTestArray(i) & vbnewline
   
7. Next
   
8. Function BubbleSort(arrValues)
   
9. 
   
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

复制代码

纯数字可以，输出的时候最好处理下类似这样，然后根据指定的数字去获取对应字符串