过程局部变量与窗体全局变量PPT课件

1、过程（局部）变量与窗体（全局）变量过程变量窗体变量作用范围过程内整个窗体定义位置过程内部过程外部，通常定义在所有过程上方例子Sub command1_click() Dim a As integer a=a+1End SubSub command2_click() Dim a As integer a=a+2End SubDim a As integerSub command1_click() a=a+1End SubSub command2_click() a=a+2End Sub连续单击2次Command1单击一次Command1再单击一次Command2a的值为1a的值为2a的值为2a的

2、值为3冒泡排序小结及应用冒泡排序 算法思想： 把较小（较大）的数据逐步向上推移的排序技术。它重复地走访待排序的元素，依次比较两个相邻的元素，若逆序则交换。走访元素的工作是重复地进行直到没有相邻元素需要交换。冒泡排序 (从后往前，升序)For i= 1 to n-1 For j=n to_ if _then t=a(j) a(j)=a(j-1) a(j-1)=t end if Next jNext ii+1 step -1a(j)nN-222-nN-333-nN-444-nN-555-nN-6假如n=6从交换语句可知j表示两个相邻元素中后面这个元素的下标For i= 1 to n-1 For j

3、=n-1 to_ if _then t=a(j) a(j)=a(j+1) a(j+1)=t end if Next jNext ii step -1a(j)a(j+1)冒泡排序 (从后往前，升序)从交换语句可知j表示两个相邻元素中前面这个元素的下标从后往前冒泡，每一遍产生的有序数在数组的_，故，每一遍的比较皆从_之比开始待排数前端的下标_前端a(n)和a(n-1)递增1For i= 1 to n-1 For j=1 to_ if _then t=a(j) a(j)=a(j+1) a(j+1)=t end if Next jNext in -ia(j)a(j+1)冒泡排序 (从前往后，升序)从前

4、往后冒泡，每一遍产生的有序数在数组的尾端，故，每一遍的比较皆从a(1)和a(2)之比开始待排数尾端的下标递减1从交换语句可知j表示两个相邻元素中前面这个元素的下标For i= 1 to n-1 For j=2 to_ if _then t=a(j) a(j)=a(j-1) a(j-1)=t end if Next jNext in i+1a(j)”Z”, ”A”9”, ”21”120” 有字符 无字符，如“118”11”实现第1位到第5位的数非降序类似冒泡排序a(0)存在的意义：B防止下标越界完整升序A.从前往后，每一遍产生的有序数在数组的尾端，每一遍的比较皆从a(1)和a(2)之比开始待排数

5、尾端的下标递减1B.直接交换排序i位为目标排序位，将其它待排序的数皆与之比较，逆序则换C.算法与参考算法一样仅j的意义不同D.j从前往后，每一遍的比较皆应从a(1)和a(2)之比开始D从后往前，实现第i位数降序有序从前往后，实现第bottom位数降序有序双向冒泡排序冒泡排序优化两方面优化：1.遍数 某遍若无交换，则有序2.待排序数下标范围 记录该遍最后一次交换的下标 缩小下一遍待排序数下标区间 wz = 1 For i = 1 To n - 1 flag = False For j = n To wz + 1 Step -1 If b(j) b(j - 1) Then t = b(j): b(

6、j) = b(j - 1): b(j - 1) = t flag = True: wz = j End If Next j If Not flag Then Exit For Next i If flag Then ts = n - 1 Else bs = i Label11.Caption = Str(bs)为什么排序结束后还判flag？冒泡排序小结原始冒泡排序优化冒泡排序算法相邻比较，逆序则换相邻比较，逆序则换遍数（趟数）n-1=n-1比较次数1/2*n*(n-1)=1/2*n*(n-1)交换次数=1/2*n*(n-1)=1/2*n*(n-1)优化后，冒泡排序遍数与比较次数都可能发生减少，优化后，冒泡排序遍数与比较次数都可能发生减少，但交换次数不变但交换次数不变给定的一组数，设定目标顺序，给定的一组数，设定目标顺序，