VB教程——排序算法复习
VB常用算法总结大全
VB常用算法总结大全VB（Visual Basic）是一种对初学者友好的编程语言，因其简单易学的特点而受到很多人的喜爱。
在VB中，算法是编程过程中非常重要的一部分，它们用来解决各种问题，从简单的数学计算到复杂的数据处理。
本文将总结一些常用的算法，帮助VB程序员更好地应用于实际项目中。
一、排序算法1.冒泡排序冒泡排序是一种简单的排序算法，它通过不断地交换相邻的元素来对数据进行排序。
它的基本思想是从列表的第一个元素开始，依次比较相邻的两个元素，如果顺序不正确，则交换它们的位置。
重复这个过程，直到整个列表都已经排序。
2.快速排序快速排序是一种高效的排序算法，它通过选择一个基准元素，将列表分为两部分，一部分小于基准元素，一部分大于基准元素。
然后对这两部分分别进行快速排序，最后将它们合并在一起。
3.插入排序插入排序是一种简单直观的排序算法，它将列表分为已排序和未排序两部分，每次选择未排序部分的第一个元素，并插入到已排序部分的适当位置。
重复这个过程，直到整个列表都已经排序。
二、查找算法1.顺序查找顺序查找是一种简单的查找算法，它从列表的第一个元素开始，依次比较每个元素，直到找到目标元素或者遍历完整个列表。
2.二分查找二分查找是一种高效的查找算法，它要求列表已经排序。
它通过比较目标元素与列表中间元素的大小关系来确定要的部分，并缩小范围。
重复这个过程，直到找到目标元素或者确定列表中没有目标元素。
三、图算法1.深度优先（DFS）深度优先是一种用于图遍历的算法，它从一个起始点开始，沿着一个路径尽可能深地访问节点，直到遇到一个没有未访问过的相邻节点为止。
然后回溯到前一个节点，寻找其他路径。
2.广度优先（BFS）广度优先也是一种用于图遍历的算法，它从一个起始点开始，依次访问所有与起始点相邻的节点，然后再依次访问这些节点的相邻节点，直到遍历完图中的所有节点。
四、动态规划动态规划是一种解决多阶段决策问题的方法，它将问题分解为若干个阶段，并定义状态和决策。
VB程序设计理论课提纲-排序,分治法,哈希函数,算法时间复杂性分析
②重复①过程，直至i=n+1 且j=m+1
合并排序法算法分析
在内循环的执行次数：
每执行一次循环，完成一个元素的合并 完成合并需执行循环m+n次
算法时间复杂性O(n) 算法空间复杂度O(2n)
冒泡排序+合并排序会提高算法效率 吗？
考虑对n个数的冒泡排序
时间复杂性n2/2 空间复杂性n （需要一个数组a[1..n]）
算法的计算次数最坏情况为10001次
解方程方案二
使用二分法进行动态步长试探求算
根据题意则在区间[0,1]中有10001个可用于试探 的x值是有序排列的，可用二分法求解 算法过程见教材P.79，例4.33
算法时间复杂度最坏情况为log2n，即 15次
解方程方案三
使用牛顿切线法进行动态步长试探求算
对算法效率的认识
一．算法复杂度基本概念 二．三种控制结构的算法时间复杂度 三．降低算法复杂度的基本策略 四．排序算法复杂度的认识
一、算法复杂度基本概念
算法复杂度是指程序执行过程所占用的机 器时间和空间。 一般采用大O标记法来描述复杂度的数量级 常见的复杂度的数量级有
O(n0) ：常量级 O(n) ：线性级 O(n2) ：平方级 O(2n) ：指数级 O(log2n) ：对数级
根据题意则在区间[0,1]中的x值和y值存在函数 关系，利用函数的导数求切线与x轴的焦点作为 步长进行求解 算法过程见教材P.79，例4.32
可以证明其算法时间复杂度比二分法 还要小。
四、对排序算法复杂度的认识
数组中元素的查找策略 选择排序算法复杂 冒泡排序算法复杂 归并排序算法复杂 二路归并排序算法复杂 分治思想下的冒泡排序(快速排序）算法复 杂
(完整word版)VB冒泡排序专题
VB 冒泡排序专题班级 姓名知识点回顾：1、冒泡排序的特征：从后往前两两比较数据，不符合大小关系的两数交换至达到要求。
2、关于冒泡需理解：※升序：将后数小于前数的两个数进行交换；降序：将后数大于前数的两数进行交换；※N 个数最多进行N-1遍排序；两数比较的次数最多为N*(N-1)/2；两数交换次数最多为：N*(N-1)/2； ※冒泡有很多改进算法，在练习中要加强理解和记录；3、冒泡经典代码：( 以降序为例 )冒泡经典算法默认数据从后往前冒，第一次比较的两个数一定是a(n)与a(n-1)，一定是先把最值放a(1)中； 而事实上冒泡也可以从前往后冒，第一次比较的两个数一定是a(1)与a(2)，一定是先把最值放在a(n)中。
4、字符串的排序：可以排序，按照字符的ASCII 码。
从第一个字符开始比较，直到比出大小，即当字符串第一个字符一样时，按照第二个字母的ASCII 码排，以此类推。
例: “bcd ”大于“adb ”，“efad ”小于“efcd ”。
巩固练习：1、在运动会上，男生第一组6位选手的百米成绩（单位：秒）分别是“13.4、12.3、11.2、13.8、13.1、11.0”，若使用冒泡排序法将该组的成绩按第一名、第二名、第三名……的顺序排序，则第一遍排序后的顺序是（）；两遍排序后的顺序是（ ）;A. 11.0 11.2 13.8 13.4 12.3 13.1B.11.0 12.3 11.2 13.8 13.1 13.4C. 11.0 11.2 13.4 12.3 13.1 13.8D.11.0 13.4 12.3 11.2 13.8 13.12、有一组10个数据的无序序列，利用冒泡排序算法进行从小到大的排序，需要比较的次数和最多交换的次数，最多需要进行加工的遍数分别为（）A. 9，45，9B. 45，15，9C.45，45，9D.15，45，83、在NBA某赛季中，快船队5场比赛得分依次为97，89，111，70，90，若采用冒泡排序算法对其进行从小到大排序，在整个排序过程中，数据97被交换的次数是( )A．1次 B．2次 C．3次 D．4次4、对存储在stu ( 0 to n )中的n+1个元素用冒泡排序算法进行排序，元素交换次数的范围和元素比较次数的值分别为（）A、[0，n]，（n-1）*n/2B、[1，（n+1）*n/2]，（n-1）*n/2C、[0，（n+1）*n/2]，（n+1）*n/2D、[1，n-1]，（n+1）*n/25、下列关于排序的算法，不正确的是（）A．对 N 个数组元素进行排序，冒泡排序和选择排序排序的遍数一样B．对 N 个数组元素进行排序，冒泡排序和选择排序比较的次数一样C．对 N 个数组元素进行排序，冒泡排序和选择排序在排序过程中交换次数一样D．一般情况下，选择排序比冒泡排序效率更高6、有如下程序段:For i=7 to 5 step -1For j=7 to 9-i step -1If a(j)>a(j-1) thenk=a(j):a(j)=a(j-1):a(j-1)=kEnd ifNext jNext i数组元素a(1)到a(7)的数据依次为3，9，1，5，8，6，2 经过该程序段加工后，a(1)到a(3)排列为( ) A．1 2 3 B． 9 8 6 C． 3 9 1 D． 8 6 57、有如下VB程序段，已知数组a中有10个元素，保存的数据分别为：56、21、18、64、72、49、3、7、22、80，则程序运行后变量m的值为○1m=0:i=1Do while i<=10if m<a(i) then m=a(i)i=i+1Loop8、以下程序段的功能是找到a(0)．．．．．中最小值．．．并显示在label1上，请填空：．．．．到．a(99)m=a(0)For i=1 to 99if ○1 then m=a(i)next i○29、以下程序段的功能是找到a(1)到a(10)中最大值存储在a(10)．．．．．中并打印在界面上，请填空：for i=1 to ○1if a(i)>a(i+1) then t=a(i):a(i)=a(i+1):a(i+1)=tNext iprint ○210、数组a（1 to 10) 中保存的数据依次分别为：80、7、56、21、18、64、72、49、38、22，则程序运行后变量m 的值为○1 j 的值为○2 text1.text 中显示的内容为○3 。
VB教程—排序算法复习(共23张PPT)
1、冒泡法
首先我们来看把最大的那个数放在最后位置上的方法： 假设有5个数，分别为10，2，6，7，4，存放在a(1)-a(5)中。
首先，从a(1)到a(5)，相邻的两数两两进行比较，在每次比
较过程中，若前一个数比后一个数大，则交换两元素的内容。
Next i
思考：如果这5个数是2，4，6，7，10，简述程序执行流程。
1.冒泡法
改进算法: Dim a(1 To 5) As Integer For i = 1 To 5
a(i) = Val(InputBox("输入一个数")) Next i For i=1 to 4
flag=0 For j=1 To 5-i
第1轮： for j=2 to 5
if a(1)>a(j) Then t=a(1): a(1)=a(j) : a(j)=t
End if Next j
第2轮： for j=3 to 5
if a(2)>a(j) Then t=a(2): a(2)=a(j) : a(j)=t
End if Next j
第3轮： for j=4 to 5
Next i Print For i = 1 To n
Print a(i); Next i
2、顺序交换法
我们再来看一种将最小的数放在第一个位置的算法 先设定用a(1)存放最小值，然后用a(1)分别与其后
的每一个数a(j)(j=2..5)进行比较，在比较过程中 如果a(1)不是小的数，就将a(1)与a(j)互换。
算法：不急于交换，先找出a(1)到a(5)中最小数所在 的位置K，一遍扫描完之后，再把a(1)与a(K)互换。
(完整版)VB选择排序专题
VB选择排序专题班级姓名知识点回顾：1、数组的作用：一组意义相同，类型相同的数据的保存，通常借助于数组。
如：高二年级所有同学的学籍号可定义为大小为700（只能多不能少）的long类型的数组xjh1 to 700) 或xjh(699)；2、数组名称可自取: 符合※以字母开头、※除了“_”外不能有其他字符、※不能用VB已用的关键字即可；3、数组下标的定义可以从任何数开始，但通常为0或1，如：a(19)，表示下标从0开始到19；a(1 to 19)表示下标从1开始。
下标即位置，能代表数组值。
4、数组赋初值方法多样，通常用循环语句。
没有赋值默认数组中每个数初值为0或FALSE或“”。
5、排序概念和意义：把一组类型相同的数据按照升序或者降序的规律排列起来。
6、排序的算法要点：※将N个数据保存在数组中；※理清是升序或是降序排序——升序为从小到大，降序为从大到小；※算法很多——冒泡排序、选择排序、插入排序、希尔排序、快速排序等……7、选择排序的特征：以降序为例——第一遍排序，找出最大值的位置，与数组中第一个数交换，第二遍排序，找出次大值的位置，与数组中第二个数交换。
8、关于选择排序需理解：※N个数最多进行N-1遍排序；两数比较的次数最多为N*(N-1)/2；两数交换次数最多为：N-1次；※选择排序的变式即改进算法非常多，比如N个数据排序时，发现某一遍排序两两比较过程中已没有数据交换则可以停止继续排序，比如比较过程中直接交换等，在练习中要加强理解和记录；9、选择排序的经典代码：( 以降序为例，所有for语句都要熟练转化为do while语句)巩固练习：1、在VB中，如果变量p用来存储某张试卷上的缺考填涂标记，则p应采用的最适合的数据类型是（）A．Integer B．Boolean C．Single D．String2、VB语句“Dim a(50) As String”定义的数组元素个数以及第8个数组元素分别为（）；VB语句“Dim a(1 to 50) As long”定义的数组元素个数以及第8个数组元素分别为（）A. 51，a(7)B.50，a(7)C. 51，a(8)D.50，a(8)3、有如下Visual Basic程序段：m = a(2)For j = 3 To 50If a(j) > m Then m = a(j)Next jMsgbox(str(m))该程序段执行后，变量m中存储的是（）A、a(1)至a(50)中的最小值B、a(2)至a(50)中的最大值C、a(2)至a(50)中的最小值的位置D、a(1)至a(50)中的最大值的位置4、以下程序执行后，i的值是（）Dim a(1 To 5) As IntegerDim f As Booleana(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10i = 1: f = TrueDo While i <= 5 And f = TrueIf a(i) = 56 Then f = Falsei = i + 1LoopLabel1.Caption = iA．6 B．3 C．4 D．55、在2017年秋季学校运动会上，男生第一组6位选手的百米成绩（单位：秒）分别是“13.4、12.3、11.2、13.8、13.1、11.0”，若使用选择排序法将该组的成绩按第一名、第二名、第三名……的顺序排序，则第一遍排序后的顺序是（）；两遍排序后的顺序是（）;A. 11.0 11.2 12.3 13.8 13.1 13.4B.11.0 12.3 11.2 13.8 13.1 13.4C. 11.0 11.2 13.4 12.3 13.1 13.8D.11.0 13.4 12.3 11.2 13.8 13.16、有一组10个数据的无序序列，利用选择排序算法进行从小到大的排序，需要比较的次数和最多需要进行加工的遍数，以及最多交换数组数据的次数分别为（）A. 9，9，9B.15，9，8C.45，9，9D.45，8，87、在NBA某赛季中，快船队5场比赛得分依次为97，89，111，70，90，若采用选择排序算法对其进行从小到大排序，在整个排序过程中，数据97被交换的次数是( )A．1 B．2 C．3 D．48、用选择排序算法对一组学生的身高数据进行升序排序，已知第一遍排序结束后的数据序列为165，168，178，175，171，则下列选项中可能是原始数据序列的是（）A、175，178，168，165，171B、178，168，165，175，171C、165，178，168，175，171D、165，168，171，175，1789、对存储在stu ( 0 to n )中的n+1个元素用选择排序算法进行排序，元素交换次数的范围和元素比较次数的值分别为（）A、[0，n]，（n-1）*n/2B、[1，n-1]，（n-1）*n/2C、[0，n]，（n+1）*n/2D、[1，n-1]，（n+1）*n/210、以下是选择排序主要部分，其中线框内代码用于寻找d(a)到d(n)的最小值的下标(即通常所说的位置)。
高中信息技术浙教版选修1 VB桶排序专题复习
数组元素访问：数组名（下标）。
解题思路：
1. 实际问题模型：如某班技术成绩排序(范围确定，重复率高) 2. 将结构模型分解，串珠成链； 3. 以算法巩固语法（如常见函数，for/Do循环，字符串，数组）
For i = 1 To n b(i) = 0
Next i
s = Text1.Text
“装桶” a(i)= Int(Rnd * 10)
① b(a(i)) = b(a(i)) + 1 ’第a(i)号桶中小旗子数量加1
List1.AddItem CStr(a(i))
Next i
For i = 0 To 10
For j = 1 To ② b(i)’内循环是因为可能某个桶有多个重复数据
“数桶”
变式2：若统计大小写字母：
s = Text1.Text
用分支语句分别“装桶” 与“数桶”
For i = 1 To Len(s)“装桶”
ch = Mid(s, i, 1) a(Asc(ch) - 65) = a(Asc(ch) - 65) + 1
Next i
If ch >= "A" And ch <= "Z" Then
For i = 1 To n
For i = 1 To Len(s)
If b(i) > 0 Then
c = Mid(s, i, 1)
List1.AddItem ’输出
’数据处理
End If
Next i
Next
初始化：“洗桶” 处理：“装桶” 输出：“数桶”
三步走模型：“洗桶”、“装桶”、“数桶”
模型积累
List2.AddItem CStr(i)
VB教程03.查找和排序
03
VB实现查找和排序
使用VB实现线性查找
线性查找是一种简单的查找算法，它从列表的第一个元素开始，逐个比较每个元素，直到找到目标元 素或遍历完整个列表。
在VB中，可以使用For循环结构来实现线性查找。通过比较目标元素与列表中的元素，如果找到目标元 素，则返回其索引；如果未找到，则返回一个错误值或特定值。
冒泡排序的时间复杂度为O(n^2)，其中n为列表的长度。
04
查找和排序的应用场景
数据检索
数据检索是查找和排序算法最直接的应用场景，通过查找和排序，可以快 速地定位到所需的数据项，提高数据检索的效率和准确性。
在数据库、文件系统、数据仓库等存储结构中，查找和排序算法被广泛应 用于数据的快速定位和检索。
适用场景
当数据结构中元素数量较大，且元素顺序重要时使用。
哈希查找
时间复杂度
O(1)，在最理想的情况下。但在哈希冲突 严重的情况下，时间复杂度可能会增加到 O(n)。
VS
适用场景
当数据结构中元素数量较大，且元素顺序 不重要时使用。哈希查找适用于处理大量 数据，并且对数据结构中的元素进行频繁 的插入和删除操作。
线性查找的时间复杂度为O(n)，其中n为列表的长度。
使用VB实现二分查找
二分查找是一种高效的查找算法，适 用于已排序的列表。它通过将列表分 成两半，比较目标元素与中间元素， 然后根据比较结果在左半部分或右半 部分继续查找，直到找到目标元素或 确定目标元素不存在于列表中。
在VB中，可以使用For循环结构来实 现二分查找。通过比较目标元素与中 间元素，如果找到目标元素，则返回 其索引；如果未找到，则返回一个错 误值或特定值。
VB各种排序方法
6 4 3 2 1 2 3
不交换
交换 交换 交换
6 4 3 2 1 1 2
交换
6 交换
交换
6 4
交换 交换
4 3 2 1
3
交换
3 4
4 6
第一轮比较
2 3
3 4
第二轮比较
1 2
2 3
第三轮比较
2 1
1 2
第四轮比较
筛选法排序
例：筛选法排序。（设从大到小排序） [分析]：将N个无序数据存放在 数组中，对数组进行N-1轮扫视。 第一轮扫视：将A（1）与A（2）比较，若A（1）<A（2），则 交换A（1）和A（2）的值；再将A（1）与A（3）、A （4） …… A（N）依次按以上规则比较和交换，第一轮扫视完毕，N个数中 最大数存放到A（1）中。 第二轮扫视：将A（2）与A（3）、A（4）…A（N）依次按以上 规则比较； 第三轮扫视：将A（3）与A（4）、A（5）…A（N）依次按以上 规则比较； 第N-1扫视: 将A（N-1）与A（N）按以上规则比较排序完成。
If A(Pointer) < A(J) Then
Pointer = J End If
Next J If I <> Optionter Then
T = A( I ) A( I ) = A( Pointer ) A( Pointer ) = A( I ) End If Next I
直接排序
Option Explicit Option Base 1 Private Sub CmdSort_Click() Dim A(10) As Integer, Temp As Integer Dim I As Integer, J As Integer Dim Pointer As Integer Randomize For I = 1 To 10 A(I) = Int(Rnd * (100 - 1)) + 1 Text1 = Text1 & Str(A(I)) Next I For I = 1 To 9 Pointer = I For J = I + 1 To 10 If A(J) < A(Pointer) Then Pointer = J End If Next J
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第1轮： for j=1 to 4 if a(j)>a(j+1) Then t=a(j): a(j)=a(j+1) : a(j+1)=t End if Next j 第2轮： for j=1 to 3 if a(j)>a(j+1) Then t=a(j): a(j)=a(j+1) : a(j+1)=t End if Next j 第3轮： for j=1 to 2 if a(j)>a(j+1) Then t=a(j): a(j)=a(j+1) : a(j+1)=t End if Next j
2、顺序交换法
现在重复上述算法：把a(2)到a(5)中的最小数放在 a(2)中，a(3)到a(5)中的最小数放在a(3)中，a(4)
与a(5)中的最小数放在a(4)中。这样一共经过4次选
小就把a(1)到a(5)中的数进行由小到大排序。
第1轮： for j=2 to 5 if a(1)>a(j) Then t=a(1): a(1)=a(j) : a(j)=t End if Next j 第2轮： for j=3 to 5 if a(2)>a(j) Then t=a(2): a(2)=a(j) : a(j)=t End if Next j 第3轮： for j=4 to 5 if a(3)>a(j) Then t=a(3): a(3)=a(j) : a(j)=t End if Next j
4 插入法
将一个数插入到有序数列，使插入后数列仍然有序的程序清单: Dim a(1 To 10) As Integer For i = 1 To 9 a(i) = (i-1)*3+1 Next i Key = Val(InputBox("输入一个数")) For i=1 to 9 If a(i)>Key Then Exit For next i For k = 9 To i Step -1 a(k + 1) = a(k) Next k a(i) = Key For i = 1 To 10 Print a(i); Next i
顺序排序
2、顺序交换法
对已知存放在数组中的n个数，用顺序交换法按递增顺序排
序。
(1) 从第一个元素开始，将它和其后的每个元素进行比 较，若为逆序，就交换，比较完一轮，a(1)成为数组中的最小
的元素。
(2) 对a(2)和a(n)的n-1个数进行同(1)的操作，次小的 数放入a(2)中，完成第二轮排序。 (3) 进行n-1轮排序，所有的数排序完毕。
第一轮的比较过程： for j=1 to 4 if a(j)>a(j+1) Then t=a(j): a(j)=a(j+1) : a(j+1)=t End if Next j
1、冒泡法
现在重复上述算法：把a(1)到a(4)中的最大数放在
a(4)中，a(1)到a(3) 中的最大数放在a(3)中，a(1)
第i=1 i轮： For to 4 for j=1 to 5-i if a(j)>a(j+1) Then t=a(j): a(j)=a(j+1): a(j+1)=t End if Next j
Next i
第4轮： for j=1 to 1 if a(j)>a(j+1) Then t=a(j): a(j)=a(j+1) : a(j+1)=t End if Next j
排序问题
1、冒泡法(起泡法)
2、顺序交换法 3、选择法 4、插入法
1、冒泡法
首先我们来看把最大的那个数放在最后位置上的方法： 假设有5个数，分别为10，2，6，7，4，存放在a(1)-a(5)中。
首先，从a(1)到a(5)，相邻的两数两两进行比较，在每次比
较过程中，若前一个数比后一个数大，则交换两元素的内容。
2、顺序交换法
Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = Val(InputBox("输入一个数")) Next i For i = 1 To 4 For j = i+1 To 5 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End if Next j Next i For i = 1 To 5 Print a(i); Next i
1.冒泡法
对已知存放在数组中的n个数，用冒泡法按递增顺序排序。
(1) 从第一个元素开始，将相邻的数比较，若为逆序，
就交换，比较完一轮，最大的数已沉底，成为数组中的最后一 个元素a(n) (2) 对a(1)和a(n-1)的n-1个数进行同(1)的操作，次大 的数放入a(n-1)中，完成第二轮排序。
4 插入法
例 7
将一个数插入到有序的（由小到大）数列中，插 入后数列仍然有序。
key=20
a数组
1 4
7 10 13 16 19 20 22 25 22 25
20 20 20 20 20 20 20 20
算法： 1. 找到插入数在数组中的位置i 2. 将从n到i的每个元素向后移动一个位置 3. 插入数
2、顺序交换法
我们再来看一种将最小的数放在第一个位置的算法
先设定用a(1)存放最小值，然后用a(1)分别与其后
的每一个数a(j)(j=2..5)进行比较，在比较过程中 如果a(1)不是小的数，就将a(1)与a(j)互换。 第一轮的比较过程 For j=2 To 5 if(a(1)>a(j)) Then t=a(1) : a(1)=a(j) : a(j)=t End if Next j
3、选择法
对已知存放在数组中的n个数，用选择法按递增顺序排
序。 (1) 从n个数的序列中选出最小的数，与第1个数交 换位置； (2) 除第1个数外，其余n-1个数再按(1)的方法选 出次小的数，与第2个数交换位置； (3) 重复(1)n-1遍，最后构成递增序列。
3、选择法
n个数选择法递增排序程序清单：
4 插入法
插入法2： 用上面的插入方法将一批数排序（从小到 大），设数列中开始只有一个元素。
(3) 进行n-1轮排序，所有的数排序完毕。
1.冒泡法
n个数冒泡法递增排序程序清单： Dim a%(), i%, j%, n% n = InputBox("请输入一个正整数") ReDim a(1 To n) For i = 1 To n a(i) = Int(Rnd * 100) : Print a(i); Next i For i = 1 To n - 1 For j = 1 To n - i If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i Print For i = 1 To n Print a(i); Next i
第1轮： k=1 for j=2 to 5 if a(j)<a(k) Then k=j Next j if k<>1 then t=a(1):a(1)=a(k):a(k)=t 第2轮： k=2 for j=3 to 5 if a(j)<a(k) Then k=j Next j if k<>2 then t=a(2):a(2)=a(k):a(k)=t 第3轮： k=3 for j=4 to 5 if a(j)<a(k) Then k=j Next j if k<>3 then t=a(3):a(3)=a(k):a(k)=t 第4轮： k=4 for j=5 to 5 if a(j)<a(k) Then k=j Next j if k<>4 then t=a(4):a(4)=a(k):a(k)=t
2、顺序交换法
n个数顺序法递增排序程序清单：
Dim a%(), i%, j%, n% n = InputBox("请输入一个正整数") ReDim a(1 To n) For i = 1 To n a(i) = Int(Rnd * 100): Print a(i); Next i For i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i Print For i = 1 To n Print a(i); Next i
Dim a%(), i%, j%, n% n = InputBox("请输入一个正整数") ReDim a(1 To n) For i = 1 To n a(i) = Int(Rnd * 100): Print a(i); Next i For i = 1 To n – 1 k=i For j = i + 1 To n If a(j) < a(k) Then k=j Next j if k<>i then t=a(i): a(i)=a(k): a(k)=t Next i Print For i = 1 To n Print a(i); Next i
第i=1 i轮： For to 4 for j=i+1 to 5 if a(i)>a(j) Then t=a(i): a(i)=a(j): a(j)=t End if Next j