VB第6章 数组

2、UBound函数 UBound函数
格式： Ubound（数组名[ 格式： Ubound（数组名[，d]) 功能：返回指定数组某维的上界值， 功能：返回指定数组某维的上界值，如缺省 “d”，则返回第一维的上界 例：Dim A(5) As Integer, B(3 To 8, 82 To 100) Print Ubound(A), Ubound(B,1), Ubound(B,2) 显示： 显示： 5 8 100
数组说明语句不仅定义了数组，分配存储空间， 数组说明语句不仅定义了数组，分配存储空间， 而且还将数组初始化 • 数值型的数组元素初始值为零 • 变长字符类型的数组元素初始值为空字符串 • 定长字符类型的数组元素初始值为指定长度 个数的空格 • 布尔型的数组元素初始值为False 布尔型的数组元素初始值为False • 变体（Variant）类型的数组元素的初始值是 变体（Variant） Empty。 Empty。
一、数组元素的赋值
1、用赋值语句给数组元素赋值 例如： 例如：A（1，1）=1 A（1，2）=5 2、通过循环语句给数组元素赋值 例如： 例如： For I=1 To 10 A(I)=Int(100*Rnd)+1 Next I 该循环语句产生10个100以内的随机整数 以内的随机整数， 该循环语句产生10个100以内的随机整数，放 在数组A 在数组A中。
例：
Dim M As integer Const N As Integer = 5 Dim A(N) As Integer √ Dim B(1 To 6.6) As Integer √ B(1 Dim C(1 To 2 + 3) As Integer √ C(1 Dim D(0 To M) As Integer ×
一维数组定义： 一维数组定义： 定义
Dim A(5) As Integer
表示A(0)、A(1)、A(2)、A(3)、A(4)、 表示A(0)、A(1)、A(2)、A(3)、A(4)、A(5) 个元素， 共6个元素，都是整型变量
Dim B(11 To 15) As Single
表示B(11)、B(12)、B(13)、B(14)、B(15)共 表示B(11)、B(12)、B(13)、B(14)、B(15)共 5个元素，都是单精度型变量。 个元素，都是单精度型变量。
第一列 第二列 第三列 第四列
Dim B(-1 To 1, 1 To 3) As String B(定义了3 列的二维数组， 个元素， 定义了3行3列的二维数组，共9个元素，字符型
注意： 注意：
1、数组下标的下界默认为0，可用语句 数组下标的下界默认为0 Option Base 1 来规定下标的下界为1 来规定下标的下界为1。该语句应在通用部分 2、数组下标上、下界的取值范围不得超过长整 数组下标上、 数的范围（ 2147483647）， 数的范围（ - 2,147,483,648 到 2147483647）， 否则出错， 下界≤上界。 否则出错，且：下界≤上界。 3、下标的上、下界只能是常数表达式，不能出 下标的上、下界只能是常数表达式， 变量。 现变量。
4、用Array函数给数组赋值 Array函数给数组赋值
格式：变体变量名=Array(数据列表 格式：变体变量名=Array(数据列表） 数据列表） 功能： 变体类型的变量赋值， 功能：给变体类型的变量赋值，并将该变量创建 为数组， 为数组，数组大小与数据列表中的数据个数相 注意： 同。注意： • Array函数只能给变体类型的变量赋值。<数据 Array函数只能给变体类型的变量赋值 函数只能给变体类型的变量赋值。 列表>是用逗号分隔的赋给数组各元素的值。 列表>是用逗号分隔的赋给数组各元素的值。 • 函数创建的数组的长度与列表中的数据的个数 相同。若缺省<数据列表> 相同。若缺省<数据列表>，则创建一个长度为 的数组。 ０的数组。 • 切记：不可以用Array函数给非Variant类型的变 切记： Array函数 量赋值。 量赋值。
6.2 数组的基本操作
VB不允许对数组整体操作，例如： VB不允许对数组整体操作 例如： 不允许对数组整体操作， Dim A(2,3) As Integer 不允许！ A=2 不允许！ 只能对数组元素进行操作，例如： 只能对数组元素进行操作，例如： A(1,1)=1 A(1,3)=2 A(2,2)=A(1,1)*2+A(1,3)
一、数组三要素
1、数组名—与简单变量命名规则相 数组名— 同，代表一组变量 2、数据类型—数组元素的类型 数据类型— 3、大小—数组元素的个数 大小—
二、数组定义
• 使用数组之前必须对数组进行定义， 使用数组之前必须对数组进行定义， 确定数组的名称和它的数据类型、 确定数组的名称和它的数据类型、指 明数组的维数和每一维的上、 明数组的维数和每一维的上、下界的 取值范围。 取值范围。 • VB中有两种类型的数组：固定大小数 VB中有两种类型的数组 中有两种类型的数组： 动态数组。 组和动态数组。 • 在程序中通过数组说明语句来定义数 组。
3、Erase语句 Erase语句
格式： 数组名1 数组名2 格式：Erase 数组名1，数组名2，…… 功能：重新初始化固定大小数组的元素，或释 功能：重新初始化固定大小数组的元素， 放动态数组的存储空间 例：Dim A(3) As Integer , B() As Integer A(1)=1: A(2)=2: A(3)=3 ReDim B(4) Print A(1); A(2); A(3) ‘ 输出： 1 2 3 输出： Erase A , B 输出： Print A(1); A(2); A(3) ‘ 输出： 0 0 0
例如： 例如： For I = 1 To 10 A(I)=InputBox(“给数组元素赋值” A(I)=InputBox(“给数组元素赋值”） Next I 在程序中，可以使用InputBox函数让用 在程序中，可以使用InputBox函数让用 户从键盘输入值赋给数组元素。 户从键盘输入值赋给数组元素。 InputBox函数只适合输入个别数据 InputBox函数只适合输入个别数据。 函数只适合输入个别数据。
三、数组的结构
数组是具有相同数据类型的 多个值的集合， 多个值的集合，数组的所有元素 按一定顺序存储在连续的存储单 元中。 元中。
一维数组的结构
• 一维数组只能表示线性 结构，相当于一个一维 结构，相当于一个一维 表，也可以用一维数组 表示数学中的向量。 表示数学中的向量。 • 数组定义的例子 Dim StrA(8) As Integer
Table(1,1) Table(1,2) Table(1,3) Table(1,4) Table(2,1) Table(2,2) Table(2,3) Table(2,4) Table(3,1) Table(3,2) Table(3,3) Table(3,4)
Table(1,1) Table(2,1) Table(3,1) Table(1,2) Table(2,2) Table(3,2) Table(1,3) Table(2,3) Table(3,3) Table(1,4) Table(2,4) Tab) As Integer 定义了3 列的二维数组， 12个元素 个元素， 定义了3行4列的二维数组，共12个元素，整型 A(0, 0) A(0, 1) A(0, 2) A(0, 3) 第一行 A(1, 0) A(1, 1) A(1, 2) A(1, 3) 第二行 A(2, 0) A(2, 1) A(2, 2) A(2, 3) 第三行
第 六 章
数
组
6.1 数组的概念
1、数组用于需要处理很多数据的问题中， 数组用于需要处理很多数据的问题中， 用来表示多个变量。 用来表示多个变量。 2、数组是相同类型的变量的集合，在内 数组是相同类型的变量的集合， 存中占据连续的存储单元。 存中占据连续的存储单元。 3、在数学中有X1、X2、X3、……，但在 在数学中有X ……， 计算机中不能用， 计算机中不能用，高级语言中用数组来 表示： ）、X ）、X ……。 表示：X（1）、X（2）、X（3）……。
二维数组应当用双重循环来赋值： 二维数组应当用双重循环来赋值：
例如： 例如： For I=1 To 2 For j=1 To 3 A(I, j)=(I-1)*3+j j)=(INext j Next I 产生的二维数组为： 产生的二维数组为： 1 2 3 4 5 6
3、用InputBox函数赋值 InputBox函数赋值
二维数组在内存中按列存放
Page(1,1,1) 三维数组的结构 Page(2,1,1) • 三维数组是由行、列和页组成的三维表。 三维数组是由行、列和页组成的三维表。 Page(3,1,1) 三维数组也可理解为几页的二维表， 三维数组也可理解为几页的二维表，即每 页由一张二维表组成。在内存中按页 页由一张二维表组成。在内存中按页、列、 Page(1,2,1) 的顺序存放。 行的顺序存放。 … Option Base 1 Page(3,3,1) Dim page(3,3,2) As Integer Page(1,1,2) Page(2,1,2) 逻 Page(1,1,2) Page(1,2,2) Page(1,3,2) 辑 Page(3,1,2) Page(1,1,1) Page(2,1,1) Page(1,2,1) Page(2,2,1) Page(1,3,1) Page(2,3,2) 结 Page(1,2,2) 构 Page(2,1,1) Page(2,2,1) Page(2,3,1) Page(3,1,1) Page(3,2,1) Page(3,3,2) … Page(3,1,1) Page(3,2,1) Page(3,3,1) Page(3,3,2) 存储结构
B数组又成为一个没有存储单元的空数组
4、For Each-Next结构语句 Each-Next结构语句