Visual Basic 程序设计 主讲教师 刘必雄 bxliu 福建农林大学 计算机与信息学院 主讲教师 林 娟 TEL 15359728220 349916456 福建农林大学 计算机与信息学院 第四章 数组 第四章 数组 本章学习目标 掌握 数组的概念和常用算法 熟悉 数组的分类 声明及基本操作 第四章 数组 第四章 数组 数组的概念 4 1 静态数组 4 2 动态数组 4 3 本章内容 数组应用 4 4 第四章 数组 4 1 数组的概念 数组是把一组相互关系密切的数据放在一起并用一个统一 的名称来标识 是同类型有序数据的集合 数组 8695 72 93 score 0 score 1 score 5 0 score 9 9 数组元素 数组名 下标 数组元素 指数组中的每一个数据 也称为下标变量 要引用某个 数组元素必须给出数组名和下标 注意 在使用数组元素时 必须把下标放在一对紧跟在数组名之 后的括号中 第四章 数组 4 1 数组的概念 数组是把一组相互关系密切的数据放在一起并用一个统一 的名称来标识 是同类型有序数据的集合 数组 8695 72 93 score 0 score 1 score 5 0 score 9 9 数组元素 数组名 下标 数组必须先声明后使用 即定义数组的名称 数组的维数 数组的 大小以及数组的类型 按维数分类 一维数组 二维数组和多维数组 大小是否确定 静态数组和动态数组 第四章 数组 4 2 静态数组 4 2 1 一维数组 4 2 2 二维数组 4 2 3 数组相关的函数和语句 第四章 数组 4 2 1 一维数组 1 一维数组的声明 语法格式 Dim Public Private Static 数组名 下标下界 To 下标上界 As 类型 说明 Dim Public Private Static 数组声明符 数组名 用户定义的标识符 与变量的命名规则相同 下标下界 To 下标上界 数组下标 常量 默认的下标下界为0 As类型 用来说明数组中每个元素的类型 一维数组的大小为 下标上界 下标下界 1 第四章 数组 4 2 1 一维数组 1 一维数组的声明 语法格式 Dim Public Private Static 数组名 下标下界 To 下标上界 As 类型 u 定义整型数组a 有6个元素 元素下标从0 5 Dim a 5 As Integer u 定义单精度数组b 有4个元素 元素下标从3 6 Dim b 3 To 6 u 定义整型数组x 有11个元素 整数数组y 有21元素 Dim x 10 As Integer y 20 示例 第四章 数组 4 2 1 一维数组 1 一维数组的声明 语法格式 Dim Public Private Static 数组名 下标下界 To 下标上界 As 类型 u在同一个过程中 数组名不能与变量名同名 否则会出错 Private Sub Form Click Dim a As Integer Dim a 5 As Integer End Sub 注意事项 第四章 数组 4 2 1 一维数组 1 一维数组的声明 语法格式 Dim Public Private Static 数组名 下标下界 To 下标上界 As 类型 u数组声明时 下标可以为常数或常数表达式 但不能为变量 或变量表达式 Private Sub Form Click Dim n As Integer n 5 Dim a n As Integer End Sub 注意事项 第四章 数组 4 2 1 一维数组 1 一维数组的声明 语法格式 Dim Public Private Static 数组名 下标下界 To 下标上界 As 类型 注意事项 u数组声明时 下标下界不能超过下标上界 Private Sub Form Click Dim a 2 To 6 As Integer Dim b 5 To 3 As Integer End Sub 第四章 数组 4 2 1 一维数组 2 一维数组的引用 在数组名后的一对小括号中指定一个下标 数组名 下标 语法格式 Private Sub Form Click Dim x 5 数组定义 x 5 100 数组引用 End Sub 注意区分数组的定义和数组的引用不同 第四章 数组 4 2 1 一维数组 2 一维数组的引用 在数组名后的一对小括号中指定一个下标 数组名 下标 语法格式 引用数组元素时 数组名 数据类型必须与声明时一致 下 标值应在数组声明所指定的范围内 数组元素的使用规则与同类型的简单变量相同 Private Sub Form Click Dim a 2 To 6 As Integer a 1 2 End Sub 注意事项 第四章 数组 4 2 1 一维数组 2 一维数组的引用 例4 1 一维数组的输入输出示例 定义一个包含五个元素的一维整型数组a 运行后 单击窗体 通 过输入框输入五个整数 并按下标从小到大依次赋值给数组a 然 后再将数组a中的元素按下标从大到小依次输出 第四章 数组 例4 2 在一个整型数组中 找出最大值的元 素和最小值的元素并求所有元素的平均值 4 2 1 一维数组 3 一维数组的应用 第四章 数组 4 2 1 一维数组 3 一维数组的应用 例4 3 顺序查找 在一个整型数组中 用顺 序查找法在数组中查找指定的元素 第四章 数组 4 2 2 二维数组 1 二维数组的声明 Dim Public Private Static 数组名 下标1下界 To 下标1上界 下标2下界 To 下标2上界 As 类型 语法格式 声明一个长整型的二维数组 a 共占据3 5个长整型变量的空间 例 Dim a 2 4 As Long a 0 0 a 0 1 a 0 2 a 0 3 a 0 4 a 1 0 a 1 1 a 1 2 a 1 3 a 1 4 a 2 0 a 2 1 a 2 2 a 2 3 a 2 4 第四章 数组 4 2 2 二维数组 Dim a 4 As Integer 一维数组 有5个元素 构成线性表 Dim b 4 3 As Integer 二维数组 有20个元素 构成平面 Dim c 2 4 3 As Integer 三维数组 有60个元素 构成立方体 1 二维数组的声明 Dim Public Private Static 数组名 下标1下界 To 下标1上界 下标2下界 To 下标2上界 As 类型 语法格式 第四章 数组 4 2 2 二维数组 2 二维数组的引用 数组名 下标1 下标2 语法格式 定义一个5行6列的二维整型数组a 运行后 单击窗体 通过随机函 数为每个数组元素赋值 然后再将数组a中每个元素输出 对二维数组进行赋值或输出时 一般采用二重循环来实现 例4 4 二维数组的引用示例 第四章 数组 4 2 2 二维数组 3 二维数组的应用 例4 5 矩阵最大值查找 有一个5 6矩阵 要求编写程 序找出其中值最大的元素以及其所在的行号和列号 第四章 数组 4 2 3 数组相关的函数和语句 1 Array 函数 数组变量名 Array 数据值列表 语法格式 功能 Array函数用于产生一个一维数组 数组中各元素 值依次为其参数列表中的各元素 数组下标的下界 使用默认下界 第四章 数组 4 2 3 数组相关的函数和语句 1 Array 函数 数组变量名是预先定义的一个Variant类型的变量 而数据值列表是用逗号隔开的多个数据 数组变量名 Array 数据值列表 语法格式 说明及示例 Dim a As Variant 声明数组变量名a Dim b As Variant 声明数组变量名b a Array 1 2 3 4 5 a数组有5个元素 b Array 100 abc True b数组有3个元素 第四章 数组 4 2 3 数组相关的函数和语句 2 Split 和Join 函数 Split函数从一个字符串中 以某个指定符号为分隔 符 分离若干个子字符串 建立一个下标从0开始 的一维数组 语法格式 一维数组名 Split 字符串表达式 分隔符 功能 语句a Split 123 x y 100 a 0 的值为 123 a 1 的值为 x a 2 的值为 y a 3 的值为 100 第四章 数组 4 2 3 数组相关的函数和语句 2 Split 和Join 函数 Join函数把一维数组中的各元素值整合为一个字符串 语法格式 变量名 Join 一维数组名 分隔符 功能 a Array 1 2 3 4 5 c Join a 则c的值为 12345 第四章 数组 4 2 3 数组相关的函数和语句 3 LBound 和UBound LBound 数组名 维 UBound 数组名 维 语法格式 LBound返回数组某一维的下界值 UBound返回数组某一维的上界值 Private Sub Form Click Dim a 3 2 To 5 3 To 15 定义一个三维数组 Print LBound a UBound a 输出第1维的上 下界值 Print LBound a 2 UBound a 2 输出第2维的上 下界值 Print LBound a 3 UBound a 3 输出第3维的上 下界值 End Sub 功能 第四章 数组 4 2 3 数组相关的函数和语句 4 For Each Next语句 For Each 成员 In 数组 循环体 Exit For Next 成员 语法格式 功能 首先将数组中的第1个元素赋给 成员 然后执行循环体 如 果数组中还有其他元素 则继续将数组的下一个元素赋给 成 员 然后执行循环体 直到数组中每个元素都遍历一遍 然 后退出循环 第四章 数组 4 2 3 数组相关的函数和语句 4 For Each Next语句 For Each 成员 In 数组 循环体 Exit For Next 成员 语法格式 说明 成员 是任意一个合法的Variant类型的变量名称 在第 一次循环中 成员 代表 数组 中第1个元素的值 第二次 循环中 成员 代表 数组 中第2个元素的值 依此类推 数组 是一个数组名 没有括号和上下界 循环次数是由数组元素的个数决定的 第四章 数组 4 2 3 数组相关的函数和语句 4 For Each Next语句 例4 6 用For Each Next语句分别显示一维 数组和二维数组的所有元素 并求数组元素的和 第四章 数组 4 3 动态数组 4 3 1 动态数组的定义 4 3 2 数组的清除和重定义 第四章 数组 4 3 1 动态数组的定义 声明一个没有下标的数组 Dim Public Private Static 数组名 As 类型 动态数组的定义分为两个步骤 在过程中用ReDim语句重新定义数组的大小 ReDim Preserve 数组名 下标1下界 To 下标1 上界 下标2下界 To 下标2上界 As 类型 动态数组 动态数组提供了一种灵活有效的管理内存机制 能够 在程序运行期间根据用户的需要随时改变数组的大小 第四章 数组 4 3 1 动态数组的定义 例4 7 编一个程序 显示n个数的斐波那契数序列 第四章 数组 4 3 2 数组的清除和重定义 Erase语句用来初始化静态数组的元素 释放动态数 组占用的内存空间 语法格式 Erase 数组名 数组名 功能 说明 u Erase语句中 只给出要刷新的数组名 而不必 带括号和下标 u 对于静态数组 Erase语句将数组重新初始化 第四章 数组 4 3 2 数组的清除和重定义 例4 8 Erase语句的应用 第四章 数组 4 4 数组应用 例4 9 选择法排序 排序 排序是将一组数按递增或递减的次序排列 用的排序 算法有选择法 冒泡法等 第四章 数组 4 4 数组应用 例4 9 冒泡法排序 第四章 数组 第四章 数组 数组的概念 4 1 静态数组 4 2 动态数组 4 3 本章内容 数组应用 4 4 第四章 数组 第四章