6.3 动态数组控件数组和排序算法 PPT课件.ppt

复****数组的基本操作
赋值语句赋值
For…… next
Inputbox
Array()函数
数组直接赋值
文本框赋值

:
通常利用循环和print

固定大小的数组
动态数组
定义时指明大小,运行时不变
在声明数组时未给出数组的大小,在程序运行期间可变
动态数组
动态数组指在声明数组时未给出数组的大小(省略括号中的下标),当要使用该数组时,随时可用ReDim语句重新定义数组的大小。
使用动态数组的优点是:用户可以根据需要有效地利用存储空间,它是在程序执行到ReDim语句时分配存储空间。
建立动态数组的方法是,首先在模块或过程中使用如下格式定义类型:
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
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

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关键字
:
由一组具有相同name属性和相同类型的控件组成,数组中的每一控件共享同样的事件过程。当建立控件数组时,系统给每个元素赋一个唯一的索引号(Index),通过属性窗口的Index属性,可以知道该控件的下标是多少,第1个下标是0。
控件数组
建立的方法:
1、创建同名控件 2、复制现存控件。
例:教材P102例子
常用算法
排序算法选择法直接排序法冒泡法
查找算法顺序查找折半查找
程序示例