1、第八章 数组,8.1 数组概述 8.2 动态数组及声明 8.3 控件数组 8.4 程序示例,8.1 数组概述,问题1:利用VB程序设计语言对一个班同学的VB学习成绩进行处理(例如：求平均成绩、 找出最高成绩等) 问题2：按照南农大新生的入学成绩选择强化班的同学 ， 选择条件为 ：总分大于*且数学和英语的成绩不得小于* 这些数据的特点是： 1)具有相同的数据类型 2)使用过程中需要保留原始数据 数组定义：是相同类型数据的一个有序集合,举例,如：Dim score (1 to 50) As Single,维界定义,数组名称,数据类型,下界 To 上界,Score(1,Score(2,Score(3,S 。

2、core(50,1.一维数组的定义,Dim 数组名（下标） as 类型,说明： (1)下标必须为常数 ， 不可以为表达式或变量； Dim A(0 To M) As Integer（错误） (2)下标下界缺省时默认值为0 ， 若希望下标从1开始 ， 可在模块的通用部分使用Option Base语句将设为1 。
Option Base 1 参数取 0 或 1 (3)一维数组的大小：上界-下界+1 。
(4)如果数据类型省略 ， 则为变体型,Score(1,Score(2,Score(3,Score(50,数组元素,下标：顺序号,多维数组的定义,如：Dim score (1 to 1000 ， 1 to3) As Sing 。

3、le,维界定义1 ， 维界定义2,数组名称,数据类型,说明： 维界定义的个数决定数组的维数 ， 最多60维 。
每一维的大小=上界-下界+1； 可以将二维数组的定义方法推广至多维数组的定义 Dim page（1 To 3 ， 1 To 2 ， 1 To 2,Dim 数组名（下标1,下标2） as 类型,2. 数组的结构,一维数组,S(0) S(1) S(2,二维数组,T(1,1) T(2,1) T(3,1) T(1,2) T(2,2) T(3,2) T(1,3) T(2,3) T(3,3,第一列,第二列,第三列,三维数组Page,Page(1,1,1) Page(2,1,1) Page(3,1,1) Page( 。

4、1,2,1) Page(2,2,1) Page(3,2,1) Page(1,1,2) Page(2,1,2) Page(3,1,2) Page(1,2,2) Page(2,2,2) Page(3,2,2,第1页 第1列,第1页 第2列,第2页 第1列,第2页 第2列,说明： 数组的大小 = 第1维大小第2维大小第n维的大小,2)获取上下界的函数 下界=LBound（数组名 ， 维 上界UBound（数组名 ， 维） dim L as Integer L=Lbound(Page,1,Dim A(5) As Integer, B(3 to 8, 200 to 208) Print LBound(A), L 。

5、Bound(B,1),LBound(B,2) print Print UBound(A),UBound(B,1),UBound(B,2,Lbound和Ubound举例,3 数组基本操作,1、数组元素赋初始值,1）利用循环结构,Dim A（1 To 10） As Integer For i=1 To 10 A(i)=0 Next i,2）利用Array函数,Dim a As Variant, b As Variant, i% a = Array(1, 2, 3, 4, 5) b = Array(abc, def, 67) For i = 0 To UBound(a) Picture1.Print 。

6、 a(i);
;
Next i For i = 0 To UBound(b) Picture1.Print b(i);
;
Next i,使用Array函数可将一个变体形变 量“升级”为数组,2、利用Inputbox函数输入数据,Dim IntegerArray (2, 3) As Single For i = 0 To 2 For j = 0 To 3 IntegerArray(i, j) = InputBox(“输入 ( Next i Print Print 排序后： For i = 1 To 9 For j = i + 1 To 10 If sort(i) sort(j) Then t。

7、= sort(i): sort(i) = sort(j): sort(j) = t End If Next j Print sort(i);
Next i Print sort(i);
End Sub,排序并输出,输出原始数据,8.2 动态数组,动态数组:在说明数组时 ， 不指明数组的维数和下标范围 ， 仅用一对圆括号表示,在运行时才确定大小、给其分配存储空间的数组称为动态数组,Public |Private |Static | Dim 数组名( ) As,如：Dim a( ) as Integer,1. 动态数组定义,以后在使用数组前 ， 需要利用ReDim语句对数组的维数和下标范围重新定义,用 ReD 。

8、im 语句来动态地定义数组的大小、分配存储空间,2. 动态数组使用,如：Dim x() As Integer, Private Sub Command1_Click() ReDim x(5) . ReDim x(3,2) ReDim x(3,4) End Sub,ReDim Preserve 数组名（维界定义）As,ReDim语句是一个可执行语句 ， 只能出现在过程中 。
ReDim语句中的下标可以是常量 ， 也可以是有了确定值的变量； 在过程中可以多次使用ReDim来改变数组的大小 ， 也可改变数组的维数 。
使用Preserve参数可保留数组中的数据 ， 但使用Preserve只能改变最后一维的上界,如果使用 。

9、Preserve ， 则在对 数组重新说明时 ， 将会保留原数组 中的元素的内容,例8】动态数组例,Dim a() As Integer 定义动态数组 Private Sub Picture1_Click() Dim i As Integer, j As Integer ReDim a(3, 2) 为动态数组指定义维数及大小 For i = 0 To 3 为各元素赋值并显示 For j = 0 To 2 a(i, j) = i * 2 + j Picture1.Print a(;
i;
,;
j;
)=;
a(i, j);
;
Next j Picture1.Print Next i ReDim Pr 。

10、eserve a(3, 4) 改变最后一维的大小 Picture1.Print - For i = 0 To 3 为新增加的元素赋值 For j = 3 To 4 a(i, j) = a(i, j - 1) + 20 Next j Next i For i = 0 To 3 重新显示各元素 For j = 0 To 4 Picture1.Print a(;
i;
,;
j;
)=;
a(i, j);
;
Next j Picture1.Print Next i End Sub,8.3 控件数组,由一组相同类型的控件组成 ， 它们共用一个控件名 。

来源：(未知)

【学习资料】网址：/a/2021/0321/0021741530.html

标题：Visual|Visual Basic课件：第8章-数组v.1