Visual Basic程序设计-Ch4-数组.pptVIP

* 排序问题 * 排序问题 冒泡法排序 思路是将相邻两个数比较，将小的调到前头。 第1趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”。 第2趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得到次大的数。 以此类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。 * Private Sub Command1_Click() Dim i%, j%, p%, temp% For i=1 to 9 (For i=1 to n-1) For j= 1 to 10-i (For j=1 to n-i) if(a(j)a(j+1) then temp=a(j) a(j)=a(j+1) a(j+1)=temp endif next j next i For i= 1 to 10 print a(i); next I End sub 排序问题 * 查找问题 查找方法：顺序查找、折半查找。 顺序查找：