算法分析机试要点.pptVIP

Visual Basic算法分析机试要点 要点分析 1、常用控件 要点分析 2、常用函数 要点分析 3、常用算法 算法分类总结 与素数相关 Armstrong数系列 与最大公约数相关 进制转换 排序系列 累加求和 递归 字符串操作 1、素数、完数、因子 2、 Armstrong数、升序数、回文数 2、 Armstrong数、升序数、回文数 基本框架：找出给定范围的满足有关条件的所有的数 其中（1）条件可以为逻辑变量，逻辑表达式，布尔型函数调用 （2）输出的内容注意格式的书写（字符串与变量的连接） 3、最大公约数、最小公倍数、互质数 4、进制转换 4、进制转换 5、排序系列：选择、冒泡、直接插入 8、字符串操作——字符串分解 8、字符串操作——字符串分解 For i=1 to n-1 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 End If Next j Next i [冒泡排序程序] i 只控制外层循环执行的次数 j 既控制内层循环执行的次数,又可作为比较数的下标 Private Sub sort(a()As Integer) ‘选择排序 Dim i as Integer,j as Integer Dim n As Integer,t As Integer n=UBound(a) For i=1 to n-1 For j= i+1 to n If a(i)a(j) Then t=a(i):a(i)=a(j):a(j)=t End If Next j Next i End Sub a(j)a(j+1) t=a(j+1):a(j+1)=a(j):a(j)=t ‘冒泡排序 1 n-i 例程：从大到小排序 分析： 传统的冒泡排序法，共进行N-1轮扫描，每轮依次进行A（1）与A（2）， A（2）与A（3），…直至A（10-i）与A（10-i+1）的比较，一旦前者比后者大，即交换他们的值。 如果有数据序列：1，2，3，4，5，7，6；其实它只要进行一轮扫描，即排好序；但传统的冒泡排序法，不管它已排好序，还继续进行5轮扫描，只是不交换任何元素，这其实毫无意义。 因此，在改进的冒泡排序法中，我们增设了一个开关Switch在比较过程中，若发生了数据交换，则设为True，而若一轮比较下来，没有发生数据交换，即此序列已排好序，就设为False，在每轮比较结束时，判断开关Switch的值，若为False，退出循环，结束扫描。 改进的冒泡排序 ub=Ubound(a) Switch=True Do While swtich Switch=False ub=ub-1 For j=1 to ub ’n-i If a(j) a(j+1) Then Switch=True TEMP=A(j) : A(j)=A(j+1):A(j+1)=TEMP End If Next j Loop [改进的冒泡排序程序] 将待排序的N个数据存放在数组SORT中，首先将SORT（1）认为已排序子序列，然后依次将SORT（2）、 SORT（3）、… SORT（N）插入到已排好序的子数列中。每插入一个元素都依次进行以下三个操作。 1.先将待插元素SORT（I）放入变量Temp中； 2.寻找插入位置：将temp依次与SORT（I-1）、 SORT（I-2）、… 进行比较，一旦SORT（k） temp，则停止比较，插入位置即是SORT（K）之后； 3.空出位置，将元素插入：将SORT（k+1） 至SORT（I-1）的元素依次后移一位，再将变量temp的值放入SORT（K+1）中； 注意：为避免元素值丢失，必须先将SORT（I-1）赋给SORT（I）， SORT（I-2）赋给 SORT（I-1），…，直至 SORT（