6.3 动态数组控件数组和排序算法.pptVIP

建立动态数组的方法是，首先在模块或过程中使用如下格式定义类型: Public | Private |Dim|Static 数组名（）as [数据类型] 然后在过程中用Redim语句指明该数组的大小。 格式：Redim [preserve ] 数组名 ( 下标1 [，下标2 …]) 说明 :① ReDim语句中的下标可以是常量，也可以是有了确定值的变量。 ②在过程中可以多次使用ReDim语句来改变数组的大小。 ④每次使用Redim语句都会使原来数组中的值丢失，即数组中的内容全部被重新初始化。 ?用Preserve选项，则在对数组重新说明时，将会保留数组中原来的数据。但该参数只能改变最后一维的大小，前面维的大小不能改变，且维数不能改变。 Option Base 1 Dim dynarry() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim dynarry(3, 3) Print 数组dynarry(3, 3)的值 For i = 1 To 3 For j = 1 To 3 dynarry(i, j) = i * 10 + j Print dynarry(i, j); Next j Print Next I 6.4.1基本概念： 由一组具有相同name属性和相同类型的控件组成，数组中的每一控件共享同样的事件过程。当建立控件数组时，系统给每个元素赋一个唯一的索引号（Index），通过属性窗口的Index属性，可以知道该控件的下标是多少，第1个下标是0。 6.4.2 建立的方法： 1、创建同名控件 2、复制现存控件。 排序算法 选择法 直接排序法 冒泡法 查找算法 顺序查找 折半查找 冒泡法与选择法区别 选择排序法是逐个比较,逆序交换;冒泡法是两两比较,逆序交换. 复习：数组的基本操作 赋值语句赋值 For…… next Inputbox Array()函数 数组直接赋值 文本框赋值 1.数组赋值 2.数组输出: 通常利用循环和print 3.数组的引用 固定大小的数组 动态数组 定义时指明大小，运行时不变 在声明数组时未给出数组的大小,在程序运行期间可变 6.3 动态数组 动态数组指在声明数组时未给出数组的大小（省略括号中的下标），当要使用该数组时，随时可用ReDim语句重新定义数组的大小。 使用动态数组的优点是：用户可以根据需要有效地利用存储空间，它是在程序执行到ReDim语句时分配存储空间。 redim dynarry(3,3) Print 没有使用preserve关键字的redim语句后数组dynarry的值是 For i = 1 To 3 For j = 1 To 3 Print dynarry(i, j); Next j Print Next I End Sub 2.Preserve示例 1）没有使用Preserve关键字 Option Base 1 Dim dynarry() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim dynarry(3, 3) Print 数组dynarry(3, 3)的值 For i = 1 To 3 For j = 1 To 3 dynarry(i, j) = i * 10 + j Print dynarry(i, j); Next j Print Next i ReDim Preserve dynarry(3, 4) Print 数组dynarry(3, 4)的值 For i = 1 To 3 For j = 1 To 4 Print dynarry(i, j); Next j Print Next I End Sub 第二维大小改变 第一维大小不变 2）使用Preserve关键字 6.4 控件数组 例:教材P102例子 常用算法 6.5 程序示例 基本过程（以降序为例）：将第一个元素顺序与其后面的元素比较，比第一个大则进行交换，第一轮完毕后，最大的元素被挪到了第一个位置，第二轮从第二个元素开始重复上面的过程，结束后得到第二个最大的元素，如此下去经过 N-1 轮的比