VB60基础教程 之 第8章 数 组.pptVIP

第八章 数 组 8.1 数组的概念 8.2 静态数组与动态数组 8.3 数组的基本操作 8.4 数组的初始化 8.5 数组的应用举例 8.6 控件数组 8.1 数组的概念 1. 引例 例：求 100 个学生的平均成绩，并统计高于平均分的人数。用简单变量和循环， 求平均成绩程序段如下： aver = 0 For i = 1 To 100 慭歲??灮瑵潂? 输入学生成绩 ) aver = aver + mark Next i aver = aver / 100 由于循环体内变量 mark 只能放一个学生的成绩，无法统计高于平均分的人数。 若用简单变量保存 100 个学生的成绩，则需定义 100 个变量和使用 100 句输入语句。 由此引入了数组。 数组的概念 用数组解决问题的程序如下： Private Sub Command1_Click() Dim mark(1 To 100) As Integer 声明有 100 个元素的数组 mark Dim aver!, overn%, i% aver = 0 For i = 1 To 100 输入成绩，求分数和 慭歲椨??湉異?硯尨 输入学生的成绩 ) aver = aver + mark(i) Next i aver = aver / 100 求 100 人的平均分 overn = 0 For i = 1 To 100 统计高于平均分的人数 If mark(i) aver Then overn = overn + 1 Next i Print aver, overn End Sub 4 数组的概念 数组不是一种数据类型，而是一组相同类型的变量的集合。在程序中使用数组 的最大好处是用一个数组名代表逻辑上相关的一批数据，用下标表示该数组中 的各个元素，和循环语句结合使用，使得程序书写简洁。 数组必须先声明后使用 ，数组声明后在内存可分配一块连续的区域。 利用 Dim 语句可以声明 数组名 、 类型 、 维数 、 数组大小 ； 声明时下标的个数确定数组的维数，最多可达 60 维； 按声明时的大小，数组分静态 ( 定长 ) 数组、动态 ( 可变长 ) 数组。 数组的概念 Dim mark(1 To 100) As Integer 声明了一个一维定长数组，该数组的名字为 mark ，类型为整型；共有 100 个元素， 下标范围为 1 To 100 ； mark 数组的各元素是 mark(1) ， mark(2) ， mark(3) ，…， mark(100) ； mark(i) 表示由下标 i 的值决定是哪一个元素。 mark 数组内存分配如 下： mark(100) mark(99) … mark(3) mark(2) mark(1) 每个数组元素有一个惟一的顺序号，下标不能超出数组声明时的上、下界范围， 否则会显示下标越界的出错提示。 数组元素的使用规则与同类型的简单变量相同。 8.2 静态数组与动态数组 1. 一维数组 Dim 数组名 ( 下标 ) [As 类型 ] 下标 必须为常数， 不可以为表达式或变量 。 下标的形式： [ 下界 To ] 上界，下标下界最小可为 -32768 ，最大上界为 32767 ， 省略下界，其默认值为 0 。一维数组的大小为：上界 - 下界 +1 缺省 As 类型，是变体数组。 例如： Dim a(10) As Integer ，声明了数组名为 a 的一维整型数组，有 11 个元 素，下标范围 0 ～ 10 。 Dim St(-3 To 5) As String*3 声明了 St 是数组名、字符串类型、一维数组、有 9 个元素；下标的范围 -3~5 ，每 个元素最多存放 3 个字符。 多维数组声明 Dim 数组名 ( 下标 1 ，下标2…) [As 类型 ] 每一维的大小：上界 - 下界 +1 ；数组的大小为每一维大小的乘积。 例 Dim x( 0 To 2, 0 To 4) As Long 或 Dim x(2,4) As Long 声明了一个长整型的二维数组 x ；第一维下标表示行号，下标范围为 0~2 ；第二 维下标为列号，下标范围为 0~4 ；数组共占据 3 × 5 个长整型变量的空间 x(1,4) x(1,3) x(1,2) x(1,1) x(1,0) x(2,4) x(2,3) x(2,2) x(2,1) x(2,0) x(0,4) x(0,3) x(0,2) x(0,1) x(0,0) 数组声明注意 (1) 下界缺省为 0 ，