4%多聚甲醛固定:每天一小练-VBA实现排序[冒泡算法]
来源:百度文库 编辑:偶看新闻 时间:2024/04/29 11:59:33
虽然1点了,还是坚持一下,没有压力的生活,就是没有动力的生活。相信自己,就得拿出点毅力来。
先来点代码:
冒泡算法
Sub BubbleSort(list() As Long)
Dim First As Integer, Last As Long
Dim i As Long, j As Long
Dim Temp
First = LBound(list)
Last = UBound(list)
For i = First To Last - 1
For j = i + 1 To Last
If list(i) > list(j) Then
Temp = list(j)
list(j) = list(i)
list(i) = Temp
End If
Next j
Next i
End Sub
冒泡算法,是最经常用到的,最古老的一种算法。就是依次去把每一个数值与所有的数值做比较,大的排前面,小的放后面,或是小的放前面,大的放后面。这就像鱼缸里的气泡一样一个一样从小到大冒上来,所以称为冒泡法算法。
下图清楚的表示了6个数是如何完成这个过程的:
这里用了5个过程。第一步用第二个参数与第一个对比,如发现大小差异则交换位置。第二步用第三个与第一个,第二个比较,第三步以此类推。。
在这里有两个函数要注意的,一个是 LBound,另一个不用说也知道了,UBound。一个是指出集合的第一个位置,另一个是指出最后一个位置。像火车头与尾一样。
先来点代码:
冒泡算法
Sub BubbleSort(list() As Long)
Dim First As Integer, Last As Long
Dim i As Long, j As Long
Dim Temp
First = LBound(list)
Last = UBound(list)
For i = First To Last - 1
For j = i + 1 To Last
If list(i) > list(j) Then
Temp = list(j)
list(j) = list(i)
list(i) = Temp
End If
Next j
Next i
End Sub
冒泡算法,是最经常用到的,最古老的一种算法。就是依次去把每一个数值与所有的数值做比较,大的排前面,小的放后面,或是小的放前面,大的放后面。这就像鱼缸里的气泡一样一个一样从小到大冒上来,所以称为冒泡法算法。
下图清楚的表示了6个数是如何完成这个过程的:
这里用了5个过程。第一步用第二个参数与第一个对比,如发现大小差异则交换位置。第二步用第三个与第一个,第二个比较,第三步以此类推。。
在这里有两个函数要注意的,一个是 LBound,另一个不用说也知道了,UBound。一个是指出集合的第一个位置,另一个是指出最后一个位置。像火车头与尾一样。
用指针实现冒泡排序
用指针实现冒泡排序
谁会对C++中的排序算法,比如冒泡排序,插入排序,选择排序,快速排序等的MPI并行实现代码?
用JAVA写出冒泡排序的算法
链表的冒泡排序算法
冒泡排序
冒泡排序
冒泡排序
求助:汇编 冒泡排序程序(十进制数输入部分实现)
请问下述算法是属于选择排序还是冒泡排序,有什么依据吗?
用pascal语言实现希尔排序算法
各种排序算法实现和比较
排序。随机生成若干个数据,程序将数据排序后输出,分别使用快速排序,希尔排序,冒泡排序算法进行排序。
请说出Basic语言里的比较非序法、冒泡排序法和选择排序法的算法?
冒泡排序法
VB冒泡法排序
如何用Excel实现单循环比赛的排序算法?
设计CAI实现动态演示插入排序算法
用VB实现常用排序算法的动态演示?
VB怎么用冒泡排序?
选择法 冒泡法 排序
C如何编冒泡排序
C语言冒泡法排序
我写了一个冒泡排序; 想单独把实现冒泡功能的函数放在另一个.cpp文件中, 可是在调用时却报错, 请高手指教/