期末复习(精简).ppt

注意： * * * * * * * * * * * * * 当加载图像文件到图像控件和图片框控件上时，如果加载图像的原始尺寸与控件的尺寸不同，用Stretch属性和AutoSize属性指定图像或控件的调整策略。 * * * * * * Higher thoughts must have higher language. Aristophanes * * * * * * * Higher thoughts must have higher language. Aristophanes * * * * * * * Higher thoughts must have higher language. Aristophanes * * * Form7 * Form10 * Form11 * * * * * 例5.3 由计算机产生10个0~100之间的随机整数，使用选择法排序，将这些数按照递增的顺序排列（P118）。 * 【解法二】 For i = 1 To 9 p = i For j = i + 1 To 10 If a(j) a(p) Then p = j End If Next j t = a(i): a(i) = a(p): a(p) = t Next i 【解法一】 For i = 1 To 9 For j = i + 1 To 10 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i 1 选择排序法 基本思想（升序）：将两两相邻的数进行比较，将较小的调换到前面，则一轮两两比较过后，最大数“沉”在最后面。 步骤： n个数存放在a(n)中，第一趟将每相邻的两个数比较，小的调到前面，经过n-1次两两比较后，最大数“沉底”，放在最后的a(n)中； 第二趟对余下的n-1个数按上述方法比较，经n-2次两相邻比较后，次大的数放在a(n-1)中； 依此类推，最终得到升序排列数。 * 2 冒泡排序法 说明： 按照上述步骤，若后面（n-1）个数的位置已确定，则剩下的最后一个数的位置也随之确定。所以共进行n-1趟两两比较，外循环i的值为1 to (n-1). 内循环某一i始终与i+1在比较，由于后面的数先沉下来，所以内循环i的值为1 to (n-i)，始终从第一个数开始比较。 * For i = 1 To n-1 For j = 1 To n-i If a(j) a(j+1) Then t = a(j) a(j) = a(j+1) a(j+1) = t End If Next j Next i 2 冒泡排序法 将例5.3使用冒泡法排序，将这些数按照递增的顺序排列（P119）。 For i = 1 To 9 For j = 1 To 10 - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j+1): a(j+1) = t End If Next j Next i * 2 冒泡排序法 动态数组指在声明数组时未给出数组的大小(省略括号中的下标)，当要使用它时，随时用ReDim语句重新指出数组大小,但不能改变数组的类型。 动态数组的声明 (1)声明一个空维数组 Dim 数组名 () As 数据类型 (2)在过程中用ReDim语句分配实际大小 ReDim 数组名(下标1[,下标2…]) 例： Private Sub Form_Load( ) Dim sArray( ) As Single … ReDim sArray(4，8) … End Sub * 5.3 动态数组 控件数组是由一组相同类型的控件组成。 它们共用一个控件名，共享同样的事件过程，建立时系统给每个元素赋一个唯一的索引号(Index)，通过返回的索引值（或下标值）区分控件数组中的各个