以下源码均自写,有什么不对的地方欢迎指正
冒泡排序
使用方法:
Dim arrA
arrA=Array(7,3,8,4,2,8,4,6)
Call BubbleSort(arrA)
快速排序
使用方法:
Dim arrA
arrA=Array(7,3,8,4,2,8,4,6)
Call QuickSort(arrA)
以下源码均自写,有什么不对的地方欢迎指正
冒泡排序
使用方法:
Dim arrA
arrA=Array(7,3,8,4,2,8,4,6)
Call BubbleSort(arrA)
快速排序
使用方法:
Dim arrA
arrA=Array(7,3,8,4,2,8,4,6)
Call QuickSort(arrA)