2022年VB选择排序专题 .pdf

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 语句 ) for i=1 to n-1 控制排序遍数n-1 k=i 第 i 趟排序假设i 位置上的数最大for j=i+1 to n 比较剩下的数，次数为n-i 次if d(k) d(j) then k=j 记录比较之后较大数的位置next j if ki then 如果最值位置有变化的话则交换d(i)=d(i)+d(k):d(k)=d(i)-d(k): d(i)=d(i)-d(k) end if next i for i=n to 2 step-1 控制排序遍数n-1k=i 第 i 趟排序假设i 位置上的数最大for j=i-1 to 1 step -1 或写成for j=1 to i-1 step 1 if d(k)d(j) then k=j 记录比较之后较大数的位置next j if ki then 如果最值位置有变化的话则交换，t=d(i) : d(i)=d(k) : d(k)=t end if next i 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 4 页 - - - - - - - - - 巩固练习：1、在 VB中，如果变量 p 用来存储某张试卷上的缺考填涂标记，则 p 应采用的最适合的数据类型是（）AInteger BBooleanCSingle D String 2、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 50 If a(j) m Then m = a(j) Next j Msgbox(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 Integer Dim f As Boolean a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10 i = 1: f = True Do While i = 5 And f = True If a(i) = 56 Then f = False i = i + 1 Loop Label1.Caption = i A6 B3 C4 D5 5、在 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.4 B.11.0 12.3 11.2 13.8 13.1 13.4 C. 11.0 11.2 13.4 12.3 13.1 13.8 D.11.0 13.4 12.3 11.2 13.8 13.1 6、有一组10 个数据的无序序列，利用选择排序算法进行从小到大的排序，需要比较的次数和最多需要进行加工的遍数，以及最多交换数组数据的次数分别为（）A. 9， 9，9 B.15，9，8 C.45，9，9 D.45，8，8 7、在 NBA某赛季中，快船队5 场比赛得分依次为97，89，111，70，90，若采用选择排序算法对其进行从小到大排序，在整个排序过程中，数据97 被交换的次数是( ) A1 B2 C3 D4 8、用选择排序算法对一组学生的身高数据进行升序排序，已知第一遍排序结束后的数据序列为165，168，178，175，171，则下列选项中可能是原始数据序列的是（） A、175，178，168，165，171 B、178，168，165，175，171 C、165，178，168，175，171 D、165，168，171，175，178 9、对存储在stu ( 0 to n )中的 n+1 个元素用选择排序算法进行排序，元素交换次数的范围和元素比较次数的值分别为（）A、0 ， n ， （ n-1）*n/2 B、1 ，n-1 ， （ n-1）*n/2 C、0 ， n ， （ n+1）*n/2 D、1 ，n-1 ， （ n+1）*n/2 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 4 页 - - - - - - - - - 10、以下是选择排序主要部分，其中线框内代码用于寻找d(a) 到 d(n) 的最小值的下标( 即通常所说的位置) 。 for a=1 to n-1 next a 框内代码运行结束时，保存最小值的数组元素一定是（） A 、d(n) B、d(b) C、d(a) D、d(k) 11、以下程序段是选择排序 的核心代码，阅读并完成以下1012 题：#1 For i=1 to n-1 step 1 #2 k=i : j=i+1 #3 Do while j=n #4 If d(j)d(k) then k=j #5 Loop #6 Next i 12、代码中缺少一个语句，造成程序错误，应补充在（）A、 #2 后面 B、#3 后面 C、#4 后面 D、#5 后面13、缺少的语句是（） A 、while ja(k) then 3 next j if ki then t=a(k):a(k)=a(i):a(i)=t List1.addItem str(a(i) 4此题我们采用了5（冒泡排序解析算法选择排序枚举算法）16、在淘宝网上搜索商品，可以按用户需要根据价格进行升序或降序排列。用选择排序算法编写函数实现功能。主要程序如下，其中n 为商品个数， jp 数组存放商品价格信息，sx 为 True 时表示升序。请将划线部分补充完整。Function px(sx as boolean) Dim i,j,k as integer Dim t as Double for i=n to 2 step -1 1for j=i-1 to 1 if 2 then if jg(j)jg(k) then k=j k=a For b=a+1 to n If d(b)jg(k) then 3 End if next j if 4 then t=jg(i):jg(i)=jg(k):jg(k)=t next i End function 17、编写 VB程序 , 实现如下功能 : 单击“排序数组a”按钮 Command1 时，对已有数组a 的数据进行升序排列，并显示在文本框Label1 中；单击“显示数组b”按钮 Command2 时，将升序数组b 的数据显示在文本框Label2 中；再单击“合并a 和 b”按钮 Command3 时，对数组a 和数组 b 升序合并到字符串中，将合并后的数据在文本框Label3 中显示。 ( 运行效果如图所示) 。Dim a(1 To 6)，b(1 To 6) As IntegerPrivate Sub Command1_Click() 对数组 a 中的数据进行排序Dim i As Integer, j As Integer ，k as integer a(1) = 53 :a(2) = 18:a(3) = 62:a(4) = 22:a(5) = 6:a(6) = 25:s = For i = 1 To 5 k = i For j = If a(k) a(j) Then k=j Next j If i k Then t = a(k): a(k) = a(i): a(i) = t Next i For i = 1 To 6 s = s + Str(a(i) Next i Label1.Caption = s End Sub Private Sub Command2_Click() b(1) = 3: b(2) = 8: b(3) = 15: b(4) = 27: b(5) = 38: b(6) = 49 此处部分代码省略End Sub Private Sub Command3_Click() 将数组 a 和 b 中的数据逐个比较后添加到新的字符串s 中，并显示s i = 1: j = 1: s = Do While i = 6 如果两数组都还有数据未合并 If Then s = s + Str(a(i) : i = i + 1 Else s = s + Str(b(j) : j =j +1 Loop Do While i = 6 只有数组 a 还有数据未合并4 : i = i + 1 Loop Do While j = 6 只有数组 b 还有数据未合并 s = s + Str(b(j) : j = j + 1 Loop Label3.Caption = s End Sub名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 4 页 - - - - - - - - -