vb之 数组及其使用

12
Option Base 1 Private Sub Form_Click()
Dim n％,a%(7,7),i%,j％ For i=1 To 7
a(i,1)=1 a(i,i)=1 Next i For i=3 To 7 For j=2 To i-1
a(i,j)=a(i-1, j-1) + a(i-1,j) Next j, i For i=1 To 7
数 组概 述 P67
数组的概念：
数组不是一种数据类型，而是一组相同类型数据的集合。 用一个统一的名字（数组名）代表逻辑上相关的一批数 据，每个元素用下标变量来区分；下标变量代表元素在
数组中的位置。
数组必须先声明, 后使用
1ቤተ መጻሕፍቲ ባይዱ
3.5.1 一维数组的声明
Dim 数组名( 下界 to 上界) As 数据类型 例：Dim a(1 to 10) As Integer ‘ 声明a数组有10个元素
Preserve参数：保留数组中原来的数据
6
Dim i%, j%, temp$, p%, n%
Dim a( ) As String
定义一个空的字符数组
n = Len(Text1.Text)
ReDim a(1 To n)
根据文本框中字符个数重新定义a数组大小
For i = 1 To n a(i) = Mid(Text1.Text, i, 1)
Next I
依次对a数组各元素赋值
•对数组a升序排序
Print "从小到大排序后次序为:" •依次输出a数组的各元素
7
3.5 二维数组及多维数组
二维数组的声明格式
Dim 数组名(下界 to 上界，下界 to 上界) As 数据类型

VBA数组的使用方法介绍VBA（Visual Basic for Applications）是一种用于自动化处理任务和扩展Microsoft Office应用程序功能的编程语言。

VBA提供了丰富的功能和工具，其中包括使用数组来存储和处理数据。

在这篇文章中，我们将介绍VBA中数组的使用方法以及如何利用数组处理数据。

数组是用于存储多个值的变量，这些值可以是数字、文本、日期等。

数组在VBA中被定义为具有相同类型的一组元素。

数组使我们能够有效地组织和管理大量的数据，并快速地对其进行操作和处理。

在VBA中，数组的声明和初始化可以使用多种方式。

以下是几种常见的方法：1. 静态数组：静态数组在声明时指定元素的数量，并在声明同时初始化数组。

例如，可以使用以下代码声明具有5个元素的整数数组：```vbaDim myArray(1 To 5) As Integer```现在，`myArray`是一个具有5个元素的整数数组。

可以通过索引访问和修改数组中的元素。

例如，`myArray(3)`将返回数组第3个元素的值。

2. 动态数组：动态数组的大小在运行时确定。

可以使用`ReDim`语句改变动态数组的大小。

以下是一个示例：```vbaDim dynamicArray() As IntegerReDim dynamicArray(1 To 10) As Integer```在这个例子中，我们首先声明了一个空的整数数组，然后使用`ReDim`语句将其改变为具有10个元素的整数数组。

3. 多维数组：VBA还支持多维数组，这意味着数组可以具有多个维度，而不仅仅是一个维度。

例如，可以声明一个二维数组来表示一个表格或矩阵：```vbaDim matrix(1 To 3, 1 To 3) As Integer```这个例子中，`matrix`是一个具有3行3列的整数数组。

可以使用两个索引来访问数组中的元素，例如，`matrix(2, 3)`将返回第2行第3列的值。

功能：声明一个二维数组或多维数组并分配相应的存储单元。
说明：参数与一维数组完全相同。下标的个数决定了数组的 维数，多维数组最大维数为60。每一维的大小为：上界－下 界＋ 1 ；数组的大小（数组元素的总个数）为每一维大小的 乘积。 例如：Dim a(2,3) As Single
二维数组在内存的存放顺序是“先行后列”。例如数组a 的各元素在内存中的存放顺序是：
数组声明语句完成四个任务：
① 建立数组名。 ② 建立数组的数据类型。 ③ 指定数组中元素的数目。 ④ 初始化数组中每个元素的值(数值数组元素为 0，字符串数组元素为空字符串，Variant数组元 素的值为特别值Empty)。
4.1.2 静态数组和动态数组
1. 静态数组声明 在声明时确定了大小的数组称为静态数组 (1) 一维数组的声明 (无隐式声明) Dim 数组名([下界 To] 上界) [As 数据类型] 或： Dim 数组名[数据类型符] ([下界 To] 上界) 例：Dim a(1 To 10) As Integer 1是下标的下界 ' 声明了a数组有10个元素 数组元数的数据类型
2. 数组元素初始化 系统默认的数组初值：0，空字符串，Empty。 若需给数组的各元素赋具体值，常用循环语句实现。 例如： Dim A(10) As Integer
Dim i As Integer
For i=0 To 10 A(i)= i * i Next i
4.2.2 数组的输入、输出和复制
数组分类: VB中的数组，按不同的方式可分为以下几类： 按数组的大小（元素个数）是否可以改变来分为：静 态(定长)数组、动态（可变长）数组。 按元素的数据类型可分为：数值型数组、字符串数组、 日期型数组、变体数组等。 按数组的维数可分为：一维数组、二维数组、多维数 组。 对象数组：菜单对象数组、控件数组。

7 a(3,1) 8 a(3,2) 9 a(3,3)
VB 程序设计教程
25
4. For Each …Next 语句
For i=1 to 10
Print a(i); Next i
窗体打印结果为：1 2 3 4 5 6 7 8 9 10
VB 程序设计教程
23
Dim a(10) As Integer
For i=1 To 9 a(i)=i Next i For i=1 to 9
1
2
3
4
7
5
8
6
9
Print a(i);
Mark(1) Mark(2) …… Mark(i) …… Mark(100)
数组元素
VB 程序设计教程
5
方法三： 用数组统计高于平均分的人数
Dim mark(1 To 100) As Single aver = 0 For i = 1 To 100 mark(i) = InputBox("输入" aver = aver + mark(i)
Dim a%(10)
Dim st(-3 To 5) As String*3
一 数组st是____维字符串型 9 数组，有___个元素，下 标范围为-3~5，每个数组 元素最多存放3个字符
VB 程序设计教程
10
Dim b( 3 , 4 ) As Long
b(0,0) b(0,1) b(0,2) b(0,3) b(0,4)
程中， 且必须位于数组定义之前
VB 程序设计教程
15
• 数组下标测试函数
Lbound(数组名[, 维]): 返回数组中指定维的下界 Ubound(数组名[, 维]): 返回数组中指定维的上界