大学计算机课程第五章 数组.pptVIP

第五章 数 组 5.1 数组的概念 数组的概念：数组并不是一种数据类型，而是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。 5.2 一维数组 5.2.1 一维数组的声明 (无隐式声明) 形式: 说明： 1．数组名的命名规则与变量的命名相同。按编成规范，数组变量需加a前缀 2．数组的元素个数：上界-下界+1。 3．缺省下界为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为1。其使用格式是： Option Base 0|1 后面的参数只能取0或1 例如： Option Base 1 将数组声明中缺省下界下标设为1 4．下界和上界不能使用变量，必须是常量，常量可以是直接常量、符号常量，一般是整型常量。 5．如果省略As子句，则数组的类型为变体类型。 6．数组中各元素在内存占一片连续的存储空间，一维数组在内存中存放的顺序是下标大小的顺序，如图5-1所示： 5.3.4 二维数组的应用举例 【例】打印10个控制点的80坐标系WGS84坐标系下的三维坐标。 分析：把点名存在一个一维数组中 astrPtName（10），坐标一个二维数值数组adblCoor（10，6）中，然后对数组（主要是二维数组）进行处理。 Sub PrintCoor() Dim i As Integer Dim j As Integer Print Name; Tab(10); X80; Tab(20); Y80; Tab(30); H80; _ Tab(40); Xwgs84; Tab(50); Ywgs84; Tab(60); Hwgs84 For i = 1 To 10 Print astrNam(i); For j = 1 To 6 Print Tab(10*j); adblCoor(i,j)； Next j Print Next i End Sub 5.4.2 动态数组的应用举例 读取坐标数据文件并保存在数组中，文件的格式为: Total Point Count 20 20 20 20 PointNo X Y H …… 即一行为一个点 分析：由于事先不知道有多少个点，数组大小不确定，需要读取总点数后，动态定义数组 5.8.2 数组的查找（顺序法查找） 具体实现： 　　 Dim intPos As Integer Dim dblElement As Double Dim i As Integer ．．． N = N + 1 ’重新定义数组大小并保持数据不变 ReDim Preserve dblData(N) ’注意数据向后移动 For i =N To intPos + 1 step -1 adblData(i) = adblData(i - 1) Next i adblData(intPos) = dblElement 具体实现： Dim k As Integer Dim i As Integer k = Val(InputBox(请输入要删除元素的位置)) 覆盖第k个元素 For i = k To N - 1 adblData(i) = adblData(i + 1) Next i N = N - 1 重新调整数组大小 ReDim Preserve adblData(N) 5.8数组的应用（常用算法） 5.8.1 统计 例5.6 输入一串字符，统计各字母出现的次数,大小写字母不区分。 分析： 1.统计26个字母出现的个数，先声明一个具有26个元素的数组，每个元素的下标表示对应的字母，元素的值表示对应字母出现的次数。 2.从输入的字符串中逐一取出字符，转换成大写字符（使得大小写不区分），进行判断。 3.运行界面和代码：