vb排序
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
排序
选择排序
算法：发现最小元素放入第一个位置，然后找出次小元素放在第二个位置，这样一直找下 去，直至整个数组整队好。 程序如下： For i=1 to n-1 Min=I for j=i+1 to n if a(i)<a(min) then min=j next j t=a(i) a(i)=a(min) a(min)=t Next I
冒泡排序
冒泡排序算法的运作如下：（从后往前） 1. 比较相邻的元素。如果第一个比第二个大，就交换他们两个。 2. 对每一对相邻元素作同样的工作，从开始第一对到结尾的最后一对。在这一点，最 后的元素应该会是最大的数。 3. 针对所有的元素重复以上的步骤，除了最后一个。 4. 持续每次对越来越少的元素重复上面的步骤，直到没有任何一对数字需要比较。 程序如下：
Байду номын сангаас
插入排序
算法：每步将一个待排序的纪录，按其关键码值的大小插入前面已经排序的文件中适当位 置上，直到全部插入完为止。 程序如下： For i=2 to n t=a(i) j=i-1 do while (a(j)>t and j>0 a(j+1)=a(j) j=j-1 loop a(j+1)=v Next i
For i=1 to n-1 for j=n to i+1 step -1 if a(j)<a(j-1) then t=a(j) a(j)=a(j-1) a(j-1)=t endif next j Next i
For i=1 to n-1 for j=i+1 to n if a(j-1)>a(j) then t=a(j-1) a(j-1)=a(j) a(j)=t endif next j Next i
选择排序
算法：发现最小元素放入第一个位置，然后找出次小元素放在第二个位置，这样一直找下 去，直至整个数组整队好。 程序如下： For i=1 to n-1 Min=I for j=i+1 to n if a(i)<a(min) then min=j next j t=a(i) a(i)=a(min) a(min)=t Next I
冒泡排序
冒泡排序算法的运作如下：（从后往前） 1. 比较相邻的元素。如果第一个比第二个大，就交换他们两个。 2. 对每一对相邻元素作同样的工作，从开始第一对到结尾的最后一对。在这一点，最 后的元素应该会是最大的数。 3. 针对所有的元素重复以上的步骤，除了最后一个。 4. 持续每次对越来越少的元素重复上面的步骤，直到没有任何一对数字需要比较。 程序如下：
Байду номын сангаас
插入排序
算法：每步将一个待排序的纪录，按其关键码值的大小插入前面已经排序的文件中适当位 置上，直到全部插入完为止。 程序如下： For i=2 to n t=a(i) j=i-1 do while (a(j)>t and j>0 a(j+1)=a(j) j=j-1 loop a(j+1)=v Next i
For i=1 to n-1 for j=n to i+1 step -1 if a(j)<a(j-1) then t=a(j) a(j)=a(j-1) a(j-1)=t endif next j Next i
For i=1 to n-1 for j=i+1 to n if a(j-1)>a(j) then t=a(j-1) a(j-1)=a(j) a(j)=t endif next j Next i