新Visual Basic程序设计 教学课件 解凯 陈如琪 第五章 数组.pptVIP

第五章 数组 5.1 数组的基本概念 5.2 静态数组 5.3 动态数组 5.4 数组的基本操作 5.5 控件数组 5.6 用户自定义数据类型 5.1 数组的概念 数组的维数：下标的个数，代表了数据的排列方式 例如 1维数组： 线性排列，一个班的学生成绩 2维数组：矩阵或表型排列，一个系的学生成绩 3维数组：立体排列：一个学院的学生成绩 多维数组：..... 与循环语句结合使用，使得程序书写简洁。 数组必须先声明后使用 使用Dim语句声明数组名、类型、维数、数组大小 5.2 静态数组 一维数组的声明格式如下： Dim 数组名(下标) [As类型] (1) 下标必须用常数，不允许为表达式或变量。 (2) 下标的形式为“[下界to]上界”。 下标下界最小可为-32768，最大上界为32767， 省略下界，其默认值为0。 一维数组的大小=上界-下界+ 1 例如： Dim a(10) as Integer, b(1 to 20) as Single, c%(10 to100) (3) 在默认情况下，声明的静态数组其下标下界一般从0开始。在VB 中用option base n语句可重新设定数组的下界。例如: Option base 1 则设定数组下标下界为1。 (4) 如果省略As类型，即不明确给出数组的类型，则数组是变体类型。 (5) 数组中各元素在内存占一片连续的存储空间，有n个数组元素的一维数组在内存中存放的顺序是按下标大小的顺序 (6) 错误的声明，下标是变量 n =Inputbox(“输入n”） Dim x(n) As Single 例5.3 已知计算机系06级1班有10人参加数学竞赛，求出数学竞赛的最高分。 Private Sub Command1_Click() Dim m(1 To 10) As Integer 声明数组m,用来存放数学成绩 Dim max As Integer For i = 1 To 10 m(i) = InputBox(请输入数学竞赛成绩：) If m(i) max Then max = m(i) End If Next i Print 数学竞赛最高成绩是：; max End Sub 举例 例1求1+2+3+…+100的和 Dim a(1 To 100) as Interger, s% for i=1 to 100 a(i)=i Next i s=0 for i=1 to 100 s=s+a(i) Next i print “1+2+3+…+100=“;s Option Base 1 Dim a(100) as Interger, s% 二维数组 二维数组的声明格式如下 Dim 数组名(下标1，下标2) [as类型] 说明: （1) 下标个数决定了数组的维数，在VB中最多允许有60维数组。 （2) 每一维的大小=上界-下界+1，数组的大小为每一维大小的乘积。 例如: Dim a(2,4) as integer Dim lArray( 0 To 3， 0 To 4) As Long 共有 4×5个元素 等价于: Dim lArray(3， 4) As Long 5.3 动态数组 动态数组也称可变长数组，指在声明数组时未给出数组的大小，使用它时随时用ReDim语句重新声明数组大小。 建立动态数组包括数组声明和数组大小说明两步。 （1）使用Dim、Private或Public语句声明括号内为空的数组。 格式：Dim 数组名( ) As [类型] （2） 在过程中用ReDim语句指明该数组的大小。 格式： ReDim [Preserve]数组名(下标1 [，下标2…]) Dim x( ) As Integer %在过程之外声明动态数组; Redim x(10) %在过程中定义数组为10个元素; Redim Preserve x(15) %在过程中定义数组为15个元素，保留数组中原数据 具体说明如下： ① 在使用数组之前，首先用Dim x( ) As Integer语句声明数组是一个整形数组，而 ReDim语句是一个可执行语句，只能出现在过程中，并且可以多次使用，用来改变数组的维数和大小。 ② Re