VB6.0基础教程-之-第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 mark = InputBox(输入学生成绩) 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 输入成绩，求分数和 mark(i) = InputBox(输入学生的成绩) 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 * 数组的概念 数组不是一种数据类型，而是一组相同类型的变量的集合。在程序中使用数组的最大好处是用一个数组名代表逻辑上相关的一批数据，用下标表示该数组中的各个元素，和循环语句结合使用，使得程序书写简洁。 数组必须先声明后使用，数组声明后在内存可分配一块连续的区域。 利用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，为了便于使用，在VB的窗体层或标准模块层用Option Base