vb中一维二维数组应用.docxVIP

—?维数组 排序 一、 选择排序法： 数据已经放在一维数组中，要求从小到人排序。 数纽 20 4 36 45 109 3 下标 1 2 3 n-2 n~l 排序过程： 1、 从第1项到第n项选择最小值，然后将第1项与最小项交换。 2、 从第2项到第n项选择最小值，然后将第2项与最小项交换。 3、 …… 4、 从第n-l项到第n项选择最小值，然后将第n-1项与最小项交换。 注意：最小值及下标由临时变最存储。 所以，需要两层循环：外层循环i执行n-l次，内层循环j执行n-i-1次 For i=l to n~l 最小值及下标由临时变量存储 tmpVal=第i项值 tmpTd=第i项F标 For j=i+l to n 若tmpVal ＞第）项值,则： tmpVal=第j项值 tmpld=第j项下标 nex t 将第i项与最小项交换 Next 从人到小呢？ 二、 冒泡排序法： 数据已经放在一维数组屮，要求从小到大排序。 数组 20 4 36 45 109 3 下标 1 2 3 n-2 n~l 两种方法：小数上浮和人数下沉。 小数上浮排序过程：从第n项到第k项，依次相临两项比较，若第m项小于第旷1项，贝U两 项交换。（k从2到n） 第1次执行：结果是第1项至第n项中的最小值放到第1项中 1、 若第n项小于第n-1项，将第n项与第n-1项交换。 2、 若第n-1项小于第n-2项，将第n-1项与第n-2项交换。 3、 …… 4、 若第2项小于第1项，将第2项与第1项交换。 第2次执行：结果是第2项至第n项中的最小值放到第2项中 1、 若第n项小于第n-1项，将第n项与第n-1项交换。 2、 若第n-1项小于第n-2项，将第n-1项与第n-2项交换。 3、 …… 4、 若第3项小于第2项，将第3项与第2项交换。 第n-1次执行： 1、 若第n项小于第n-1项，将第n项与第n-1项交换。 所以，需要两层循环：外层循环i执行n-1次，内层循环j执行n-i次 For i=l to nT For j=n to i+1 step T 若第j项值〈第j-l项值，则: tmp二第j-1项值 第j-1项值二第j项 第j项值二tmp n ext Next 人数下沉排序过程：从第1项到第k项，依次相临两项比较，若第m项人于第m+1项，则两 项交换。（k从n-1到1） For i=n to 2 step -1 For j=l to i-1 若第j项值〉第j+1项值，贝I」： tmp二第j+1项值 第j+1项值二第j项 第j项值二tmp nex t Next 从大到小呢？ 查找 一、 顺序查找法： 数据已经放在数组中 数组 20 4 36 109 3 下标 1 2 3 n-2 n-l n 查找方法：从第1项到第n项依次与待查找的数比较。 For i=l to n 待查找的数与第i项值相等？相等则返冋i值，终止循环。 next 二、 折半查找法： 数据已经放在一维数组屮，要求：数组屮的数已经排序。 3 4 20 36 45 109 2 3 4 0 6 查找方法: 与第(1+n) \2项比较，若小于该项则在下标区间(1, (1+n) \2-1)中的项之间查找,否则 在下标区间((1+n) \2+1, n)中的项之间查找。 如：在上表数组中查找45 1、 比较第(1+6) \2项，即第3项，4520,则在(4, 6)之间查找。 2、 比较第(4+6) \2项，即第5项,则找到。 3、 若查找的是47,则接着在(6, 6) Z间查找，比较笫(6+6) \2项，即笫6项，然后在 (7, 6)之间比较，因区间左大于右，所以查找结束。 程序代码(b数组为从小到人排序): Dim i As Integer, j As In teger, tmp As In teger, bool As Boo lea n, n As In teger Rem i, j查找的下标区间,tmp为区间的中间下标，n为待查找的数。 bool = True i = 1: j = UBound(b) Do While i = j And bool tmp = (i + j) \ 2 Select Case b(tmp) Case Is n j 二 tmp - 1 Case Is n i = tmp + 1 Case n bool = False Encl Select Loop If bool then 未找到 插入 -?般指有序序列插入 方法： 1、 查找：查找比待插入的数大的数（最接近的） 2、 插入：若找到的数的下标为k,则从第n项到第k项开始，依次向后移动，即第n项移 动到第n+1项，第n-1项移动到第n项，……，第k项移动到第k+1项，然后在第k项放入 插入的数。 删除 方法一：删除第k项 从笫