vb中一维二维数组应用

《vb中一维二维数组应用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一维数组排序一、选择排序法：数据已经放在一维数组中，要求从小到大排序。数组20436……451093下标123……n-2n-1n排序过程：1、从第1项到第n项选择最小值，然后将第1项与最小项交换。2、从第2项到第n项选择最小值，然后将第2项与最小项交换。3、……4、从第n-1项到第n项选择最小值，然后将第n-1项与最小项交换。注意：最小值及下标由临时变量存储。所以，需要两层循环：外层循环i执行n-1次，内层循环j执行n-i-1次Fori=1ton-1最小值及下标由临时变量存储tmpVal=第i项值tmpId=第i项下标Forj=i+1ton若tmpVal>第j项值，则:t

2、mpVal=第j项值tmpId=第j项下标next将第i项与最小项交换Next从大到小呢？二、冒泡排序法：数据已经放在一维数组中，要求从小到大排序。数组20436……451093下标123……n-2n-1n两种方法：小数上浮和大数下沉。小数上浮排序过程：从第n项到第k项，依次相临两项比较，若第m项小于第m-1项，则两项交换。（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次执行：结

3、果是第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次Fori=1ton-1Forj=ntoi+1step-1若第j项值<第j-1项值，则:tmp=第j-1项值第j-1项值=第j项第j项值=tmpnextNext大数下沉排序过程：从第1项到第k项，依次相临两项比较，若第m项大于第m

4、+1项，则两项交换。（k从n-1到1）Fori=nto2step-1Forj=1toi-1若第j项值>第j+1项值，则:tmp=第j+1项值第j+1项值=第j项第j项值=tmpnextNext从大到小呢？查找一、顺序查找法：数据已经放在数组中数组20436……451093下标123……n-2n-1n查找方法：从第1项到第n项依次与待查找的数比较。Fori=1ton待查找的数与第i项值相等？相等则返回i值，终止循环。next二、折半查找法：数据已经放在一维数组中，要求：数组中的数已经排序。34203645109123456查找方法：与第（1+n）2项比较，若小于该项则在下

5、标区间（1，（1+n）2-1）中的项之间查找，否则在下标区间（（1+n）2+1，n）中的项之间查找。如：在上表数组中查找451、比较第(1+6)2项，即第3项，45>20，则在（4，6）之间查找。2、比较第(4+6)2项，即第5项，则找到。3、若查找的是47，则接着在（6，6）之间查找，比较第（6+6）2项，即第6项，然后在（7，6）之间比较，因区间左大于右，所以查找结束。程序代码(b数组为从小到大排序)：DimiAsInteger,jAsInteger,tmpAsInteger,boolAsBoolean,nAsIntegerRemi,j查找的下标区间，tmp

6、为区间的中间下标，n为待查找的数。bool=Truei=1:j=UBound(b)DoWhilei<=jAndbooltmp=(i+j)2SelectCaseb(tmp)CaseIs>nj=tmp-1CaseIs

7、第k项从第k+1项到第n项开始，依次向前移动，即第k+1项移动到第k项，第k+2项移动到第k+1项，……，第n项移动到第n-1项。方法二：删除=N的值1、查找：查找=N的数1、找到：该数在数组中下标为k，则从第k+1项到第n项开始，依次向前移动，即第k+1项移动到第k项，第k+2项移动到第k+1项，……，第n项移动到第n-1项。二维数组的应用：矩阵一、生成矩阵并显示(以4*4矩阵为例)两重循环Dima(1to4,1to4)asinteger‘4*4矩阵，其值由行*10+列值组成Fori=1to4Forj=1to4a(i,j)=