次课数组(学时).pptVIP

* * * VB开发环境 * QQ Dim a As Variant a = Array(56, 90, -123, 58, 5, 10, 100, 54, 66, 518) n = UBound(a) 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 End If Next j Next i 冒泡排序 上机真题 【例】捷成64-5 数组a中的100个正整数(显示在Text1文本框中),单击“分组”按钮，则将数组a中所有3的倍数的元素存入数组b中，并对数组b中的元素从小到大排序后显示在文本框Text2中。 上机教程P80-练习6.5 【例】捷成53-5 单击“合并”命令按钮，则将 A、B两个数组（各20个数据）合并为另一个按升序方式排列的数组C，并将合并后数组C中的数据依升序方式显示在Text3中。 选择法排序思想方法： 对n个数排序，先将第一个数与第二个数到第n个数逐一比较，找出最小数的位置i(下标)，然后将a(1)与a(i)进行 交换，将最小数存放在a(1)中 然后将第二个数依次与第三个到第n个数逐一进行比较，找出第二个到第n个数中最小数，然后将a(2)与a(i)进行交换，最终这n个数中的次小数放在a(2)中 重复上面的步骤，直到排序结束为止(进行n-1趟排序) 按递增排序 选择法排序 第一趟排序 8 6 9 3 2 7 原始数据 8 6 9 3 2 7 a(1) a(2) a(3) a(4) a(5) a(6) 第一趟排序 2 6 9 3 8 7 第二趟排序 2 6 9 3 8 7 第二趟排序 2 3 9 6 8 7 第三趟排序 2 3 9 6 8 7 第三趟排序 2 3 6 9 8 7 第四趟排序 2 3 6 9 8 7 第四趟排序 2 3 6 7 8 9 第五趟排序 2 3 6 7 8 9 第五趟排序 2 3 6 7 8 9 1、求数组的最小元素 2、交换数组中的两个元素 方法：双重循环（循环嵌套） 外循环为i：控制排序趟数 内循环为j：排序过程中的下标变量 选择法排序 Dim a As Variant a = Array(56, 90, -123, 58, 5, 10, 100, 53, 66, 518) n = UBound(a) For i = 1 To n - 1 k = i For j = i + 1 To n If a(k) a(j) Then k = j 如按从大到小排序,则a(k)a(j) Next j If (i k) Then t = a(i): a(i) = a(k): a(k) = t End If Next i 选择法排序 第7章 数组 1 求最值 2 排序 3 查找 方法：从数组的第一个元素（最后一个元素）开始依次向后（前）与要查询的数据进行比较，当有数组元素与被查询的数据相同时，查询结束，否则继续比较下去，直到所有数据元素比较完毕。查询的结果有两种情况：一是查询成功，二是查询失败（找不到与查询的数据相同的数据元素）。 顺序查找 适用于有序或无序数组 用Do While进行顺序查找（ｘ为待查找的数）： P=1 ‘初始化比较位置 Do while xS(p) And pN p=p+1 Loop ‘退出的两种情况 If x=S(p) then ‘找到，处理 else ‘没找到，处理 end if 用For Next进行顺序查找（ｘ为待查找的数）： For p = 1 To N If a(p) = x Then