Visual Basic 6.0程序设计 教学课件 作者 黄学平 主编 Ⅲ 07 normal algorithms.pptVIP

补充 数组最多60维 上机实验保存文件的方式 递归 1.递归的概念： 用自身的结构来描述自身就称为“递归”。例对阶乘的定义： 编fac(n)=n! 的递归函数 Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Else fac = n * fac(n - 1) End If End Function 递归算法设计简单，但消耗的机时和占据的内存空间比非递归大。 思考： 若上述fac函数中没有这句语句： If n = 1 Then fac = 1 即仅有语句： fac = n * fac(n - 1) 程序运行将造成何结果？ 由此可见构成递归的条件： ★递归结束条件及结束时的值； ★能用递归形式表示，并且递归向终止条件发展。 数组排序 对已知存放在数组中的n个数。 (1)．选择法排序 算法思想： 1）对有n个数的序列（存放在数组a(n)中），从中选出最小（升序）或最大（降序）的数，与第1个数交换位置； 2）除第1 个数外，其余n-1个数中选最小或最大的数，与第2个数交换位置； 3）依次类推，选择了n-1次后，这个数列已按升序排列。 选择法排序（升序）的VB程序 For i = 1 To n - 1 imin = i For j = i + 1 To n If a(imin) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i （2）．冒泡法排序（递增） 算法思想：(将相邻两个数比较，小的调到前头) 1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”； 2）第二趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得次大的数； 3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。 冒泡法排序（升序）的VB程序： 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 查 找 2、折半查找法（只能对有序数列进行查找） 算法思想：n个有序数存放在数组a(1) ~ a(n)中，要查找的数为x。变量high,low,mid 分别表示查找范围的顶部、底部和中间，mid=(high+low)\2，若： （1）x=a(mid)，则已找到退出，否则进行下面的判断； （2）xa(mid)，x必定落在low和mid-1的范围之内， 即high=mid-1； （3）xa(mid)，x必定落在mid+1和high的范围之内， low=mid+1； （4）在确定了新的查找范围后，重复进行以上比较，直到找到或者low=high。 find = False 判断是否找到的逻辑变量 low = 1 high= n ‘n为数组下标的上界 Do While low = high And Not find mid = (high + low) \2 If x = a(mid) Then find = True Print the position is ; mid ElseIf x a(mid) Then high = mid - 1 Else low = mid + 1 End If Loop If (Not find) Then Print x; has not found * 2. 递归过程 过程在自身定义的内部调用自己 递推 回归 n=3 Function fac%(n%) If n = 1 Then fac = 1 Else fac = n * fac(n - 1) End If End Function n=2 Function fac%(n%) If