一维数组应用实例

1、01 掌握数组的定义 02 重点掌握一维数组的定义、引用 和应用 03 掌握控件数组的定义和应用 学习目标学习目标 Visual Basic 程序设计 实例概述实例概述 在实际应用中，常常在实际应用中，常常 需要处理类型相同的一需要处理类型相同的一 批数据。批数据。 例如，为了处理例如，为了处理 100个员工的工资，可个员工的工资，可 以用以用S（1）,S (2), S (3) ,S（100）来分）来分 别代表每个员工的工资别代表每个员工的工资 ，其中，其中S（1）代表第一）代表第一 个员工的工资，个员工的工资，S （2 ）代表第二个员工的工）代表第二个员工的工 资，以此类推资，以此类推 Vi

2、sual Basic 程序设计 由生活中的实例，我们不难得出，像 员工和员工工资一样的类似的很多数据， 都具有相互密切关系。 在VB中，把一组相互关系密切的数 据放在一起并用一个同意的名字作为标 志，这就是数组。 实例概述 Visual Basic 程序设计 在在VB中，把一组具有同一名字、不同下标的下标变量称为数中，把一组具有同一名字、不同下标的下标变量称为数 组。一个数组可遗憾又若干个下标变量。下标用来指出某个数组组。一个数组可遗憾又若干个下标变量。下标用来指出某个数组 元素在数组中的位置。如元素在数组中的位置。如S（1 to 100）中）中S是数组名，可以表示是数组名，可以表示 逻辑上相

3、关的一组数，其中，逻辑上相关的一组数，其中，“1 to 100”称为下标，可以表示称为下标，可以表示 该数组中的各个元素。该数组中的各个元素。 数组并不是一种数据类型，而是一组有序的同类型数据的集数组并不是一种数据类型，而是一组有序的同类型数据的集 合。利用数组，可以方便的组织和使用数据。合。利用数组，可以方便的组织和使用数据。 Visual Basic 程序设计 数组概念 数组元素数组元素下标下标数组维数数组维数数组类型数组类型 数组中的每一 个数据称为数 组元素。用数 组名和该数据 在数组中的序 号来标识。 下标表示顺序 号（即序号）， 每个数组有唯 一的顺序号， 下标不能超过 数组声明的

4、上、 下界范围。 由数组元素中下标 的个数决定，一个 下标表示一维数组 （下面将会重点学 习），两个下标表 示二维数组。VB中 有一维数组，二维 组最多60维数 组。 按数组占用存储空间的 方式不同，分为两种数 组：静态数组和动态数 组。两种数组的定义方 法不同，使用方法也略 有不同。 有关基本概念 Visual Basic 程序设计 注意注意 下标可以是整形的常数、变量、表达式。下标可以是整形的常数、变量、表达式。 如如: G(8) B(I) C(3+K) 下标还可以是下标变量下标还可以是下标变量 如如 : A ( A ( 5 ) ) 令令 A ( 5 ) = 4 则则 A(A(5)=A(4

5、) 下标的取值范围是：下界下标的取值范围是：下界To上界，缺省下界上界，缺省下界 时，系统默认取时，系统默认取 0 。 Visual Basic 程序设计 只用一个下标就 能确定某个数组 元素在数组中的 位置，这样的数 组称为一维数组。 一维数组一维数组 用两个（多个） 下标才能确定某 个数组元素在数 组中的位置，则 数 组 称 为 二 维 （多维）数组。 二维数组二维数组 数组分类数组分类 Visual Basic 程序设计 数组声明 数组必须先声明后使用。声明数组的 目的是通知计算机为其留出所需要的 空间，用来存储数组元素。在计算机 中，数组占据一块连续的内存区域， 数组名是这个区域的名称

6、，区域的每 个单元都有自己的地址，该地址用下 标表示。可声明的内容包括数组名、 类型、维数、数组大小。 Visual Basic 程序设计 1 1）、数组是一组相同类型的元素的集合；）、数组是一组相同类型的元素的集合； 数组特点数组特点 2 2）、数组中各元素有先后顺序，它们）、数组中各元素有先后顺序，它们 在内存中按排列顺序连续存储在一起；在内存中按排列顺序连续存储在一起； 3 3）、所有的数组元素是用一个变量名命名的一个）、所有的数组元素是用一个变量名命名的一个 集合体，而且每一个数组元素在内存中独占一个内集合体，而且每一个数组元素在内存中独占一个内 存单元，可视为同一个内存变量。为了区分

7、不同的存单元，可视为同一个内存变量。为了区分不同的 数组元素，每一个数组元素都是通过数组名和下标数组元素，每一个数组元素都是通过数组名和下标 来访问的，如来访问的，如A A（1,21,2），），B B（5 5）。）。 4 4）、）、使用数组时必须对数组进行使用数组时必须对数组进行“声明声明”，即，即 先声明后使用。所谓声明，就是对数组名、数组元先声明后使用。所谓声明，就是对数组名、数组元 素的数据类型、数据元素的个数进行定义。素的数据类型、数据元素的个数进行定义。 Visual Basic 程序设计 1. 格式 Public|Private|Dim 数组名(维数定义) As 类型, 2. 功能

8、 声明数组名称、维数、维大小、类型。 为数组分配存储空间。 例:定义数组G保存全班40名同学的英语成绩 Dim G( 1 To 40) As Integer 一维数组的定义一维数组的定义 Visual Basic 程序设计 3. 说明说明 1） Public|Private|Dim: 在标准模块的通用声明段使用Public语句建立一个全局级数组； 在模块的通用声明段使用Private语句或Dim语句建立一个模块级数组； 在过程中用Dim语句建立一个过程级数组。 2）数组名：）数组名：需遵循变量命名约定。需遵循变量命名约定。 3）“维数定义维数定义”： 下界下界1 To 上界上界1,下界下界2

9、To 上界上界2, Visual Basic 程序设计 如果下界省略，则使用默认下界 定义默认下界: Option Base 0|1 不加任何定义时，默认下界为0 数组元素个数: (上界上界1-下界下界1+1)*(上界上界2-下界下界2+1)* 4 4） : Integer Long Single Double Boolean String String*n Curency Byte Date Variant Object 用户定义类型用户定义类型 Visual Basic 程序设计 5）数组在定义后自动被初始化）数组在定义后自动被初始化 例如：例如： 将数值型数组元素值置为将数值型数组元素值

10、置为0； 将字符串类型数组元素值置为零长度字符串将字符串类型数组元素值置为零长度字符串 6）静态数组被定义后，）静态数组被定义后，VB为其分配固定大小的存储空为其分配固定大小的存储空 间，在运行期大小不能改变。间，在运行期大小不能改变。 Visual Basic 程序设计 数组概念释义数组概念释义 dim mark( 1 to 100) as integerdim mark( 1 to 100) as integer 声明了一个一维定长数组，数组的名字为声明了一个一维定长数组，数组的名字为markmark，类型为整型；，类型为整型； 共有共有100100个元素，下标的取值范围：个元素，下标的取

11、值范围：1 1100100。 markmark的数组元素依次为的数组元素依次为mark(1)mark(1)、mark(2)mark(2)、mark(100)mark(100)； markmark数组内存分配示意图：数组内存分配示意图： Visual Basic 程序设计 mark(1)mark(2)mark(i)mark(99)mark(100) 每组数组元素有一个唯一的顺序号，下标不能超出每组数组元素有一个唯一的顺序号，下标不能超出 数组声明时的上、下界范围。数组声明时的上、下界范围。 一个下标表示一维数组；多个下标，表示多维数组。一个下标表示一维数组；多个下标，表示多维数组。 下标可以是整

12、型的常数、变量、表达式；下标可以是整型的常数、变量、表达式； 一般情况下，数组中的各元素类型必须相同；但若一般情况下，数组中的各元素类型必须相同；但若 数组类型为数组类型为VariantVariant时，可包含不同类型的数据时，可包含不同类型的数据。 Visual Basic 程序设计 数组的定义方式数组的定义方式: : DimDim：用在：用在窗体模块窗体模块或或标准模块标准模块及及过程过程中，定义窗体或标准模块级数组中，定义窗体或标准模块级数组 ； ReDimReDim：用来重新定义动态数组；：用来重新定义动态数组； StaticStatic：用来说明该数组为静态数组；：用来说明该数组为静

13、态数组； Global(Public)Global(Public)：用在全局模块中：用在全局模块中( (标准模块标准模块) )中，说明数组为全局的；中，说明数组为全局的； Visual Basic 程序设计 1 1、一维数组、一维数组: : 一个数组若只有一个下标就能确定一个数组元素的数组中的位置一个数组若只有一个下标就能确定一个数组元素的数组中的位置 定义形式：定义形式： Dim Dim 数组名数组名(下标下界下标下界 To To 下标上界下标上界 ) As ) As 类型名称类型名称 如：如：Dim a(1 to10) as integerDim a(1 to10) as integer

14、Dim b(10) as integerDim b(10) as integer Visual Basic 程序设计 例例: Dim C(9) As Integer 一维整型数组；下界一维整型数组；下界0，上界为，上界为9 元素：元素：C(0) C(1) C(2) C(9) 例例: Dim A(-4 TO 10) As Integer 一维整型数组；下界一维整型数组；下界 -4，上界，上界 10 元素元素 A(-4) A(-3) . A(0) A(1) . A(10) 例例: DIM M(-3 TO 10) 一维可变类型数组一维可变类型数组 例例: CONST Y1=10 CONST Y2=5

15、0 DIM ABC(Y1 TO Y2) AS INTEGER Visual Basic 程序设计 一维数组一维数组 应用实例应用实例 Visual Basic 程序设计 例例【7-17-1】利用一维数组统计一个班学生的成绩在利用一维数组统计一个班学生的成绩在0 09 9、10101919、20202929、90909999 以及以及100100各分数段的人数分布各分数段的人数分布 解题思路解题思路：定义一个有：定义一个有1111个元素的一维数组个元素的一维数组a( 0 to 10)a( 0 to 10)， a(0)a(0)：0 09 9分的学生人数；分的学生人数； a(1)a(1)：10101

16、919分的学生人数；分的学生人数； a(2)a(2)：20202929分的学生人数；分的学生人数； a(9)a(9)：90909999分的学生人数；分的学生人数； a(10)a(10)：100100分的学生人数；分的学生人数； 根据学生成绩根据学生成绩scorescore，计算，计算intint（score/10score/10），将其分类到相应的数组元素中），将其分类到相应的数组元素中。 Visual Basic 程序设计 实例一实例一 分类统计分类统计 例例【7-7-2 2】输入若干个学生的成绩，统计不及格人数和优秀人数。输入若干个学生的成绩，统计不及格人数和优秀人数。 设计界面：设计界面

17、： Visual Basic 程序设计 Text 1 Command 1 Picture 1 Visual Basic 程序设计 设运行时学生成绩直接输入到文本框设运行时学生成绩直接输入到文本框Text1中，各成绩之间用中，各成绩之间用 逗号分隔。代码首先使用逗号分隔。代码首先使用Split函数将文本框函数将文本框Text1中输入的成中输入的成 绩分离开，保存到数组绩分离开，保存到数组A中。中。 引入计数变量引入计数变量设两个计数变量设两个计数变量num1和和num2，分别用来保存，分别用来保存 不及格学生人数和优秀学生人数。将计数变量初始化为不及格学生人数和优秀学生人数。将计数变量初始化为0

18、， 统计过程统计过程逐一取数组元素进行判断，如果数组元素的值小逐一取数组元素进行判断，如果数组元素的值小 于于60，则让，则让num1累加累加1，如果数组元素的值大于或等于，如果数组元素的值大于或等于90，则，则 让让num2累加累加1。 分析：分析： Private Sub Command1_Click()Private Sub Command1_Click() Dim A, N As Integer Dim A, N As Integer Dim num1 As Integer, num2 As Integer Dim num1 As Integer, num2 As Integer A

19、= Split(Text1.Text, ,) A = Split(Text1.Text, ,) N = UBound(A)N = UBound(A) num1 = 0: num2 = 0num1 = 0: num2 = 0 For i = 0 To NFor i = 0 To N Select Case Val(A(i) Select Case Val(A(i) Case Is 60 Case Is = 90 Case Is = 90 num2 = num2 + 1 num2 = num2 + 1 End Select End Select Next i Next i Visual Basic

20、 程序设计 代码设计代码设计 显示统计结果显示统计结果 Picture1.Cls 定义打印位置定义打印位置 Picture1.CurrentX = 100 运行界面：运行界面： Picture1.CurrentY = 100 Picture1.Print 不及格人数：不及格人数：; num1; _ Tab(18); 优秀人数：优秀人数：; num2 End Sub Visual Basic 程序设计 例例【7-7-3 3】输入若干名学生的成绩，求平均分、最高分、最低分输入若干名学生的成绩，求平均分、最高分、最低分 。 设计界面：设计界面： Visual Basic 程序设计 Text 1 Te

21、xt 2 Text 3Text 4 实例二实例二 求平均分，最高分，最低分求平均分，最高分，最低分 分析：分析： 假设运行时输入到文本框假设运行时输入到文本框Text1Text1中的各成绩之间用逗号分隔。代中的各成绩之间用逗号分隔。代 码首先使用码首先使用SplitSplit函数将文本框函数将文本框Text1Text1中输入的成绩分离开，保存中输入的成绩分离开，保存 到数组到数组A A中，然后进行求值。中，然后进行求值。 求平均分时只需先求数组所有元素之和，再除以数组元素的个数求平均分时只需先求数组所有元素之和，再除以数组元素的个数 即可。求最高分、最低分的问题实际上就是求一组数据的最大值即可

22、。求最高分、最低分的问题实际上就是求一组数据的最大值 、最小值问题。、最小值问题。 Visual Basic 程序设计 Visual Basic 程序设计 求最大值的方法：求最大值的方法： 1 1）设一个存放最大值的变量）设一个存放最大值的变量MaxNumMaxNum，其初，其初 值为数组的第一个元素，即值为数组的第一个元素，即MaxNum=A(0)MaxNum=A(0)； 2 2）依次将）依次将MaxNumMaxNum与与A(1)A(1)到到A(N)A(N)的所有数据的所有数据 进行比较，如果数组中的某个数进行比较，如果数组中的某个数A(I)A(I)大于大于MaxNumMaxNum， 则用该

23、数替换则用该数替换MaxNumMaxNum，即，即MaxNumx=A(I)MaxNumx=A(I)，所有，所有 数据比较完后，数据比较完后，MaxNumMaxNum中存放的数即为整个数中存放的数即为整个数 组的最大数。组的最大数。 求最小值的方法与求最大值的方法类似。求最小值的方法与求最大值的方法类似。 Private Sub Command1_Click() Dim A, N As Integer Dim MaxNum As Integer, MinNum As _ Integer, Average As Single A = Split(Text1.Text, “,”) N = UBoun

24、d(A) Total = 0 MaxNum = Val(A(0) MinNum = Val(A(0) Visual Basic 程序设计 “求值求值”按钮按钮Command1Command1的的ClickClick事件过程：事件过程： 通过循环依次比较，求最大值、 最小值、总和 For i = 0 To N If Val(A(i) MaxNum Then _ MaxNum = Val(A(i) If Val(A(i) MinNum Then _ MinNum = Val(A(i) Total = Total + Val(A(i) Next i Average = Total / (N + 1)

25、 Average = Total / (N + 1) 求平均 求平均 值值 Text2.Text = Format(Average, Text2.Text = Format(Average, 0.00)0.00) Text3.Text = MaxNumText3.Text = MaxNum Text4.Text = MinNum Text4.Text = MinNum End SubEnd Sub Visual Basic 程序设计 运行界面：运行界面： Visual Basic 程序设计 实例三实例三 数组排序数组排序 排序就是将一组数按递增或递减的次序重新排排序就是将一组数按递增或递减的次

26、序重新排 列。列。 排序的方法：排序的方法：选择法、冒泡法、插入法选择法、冒泡法、插入法和和合并合并 排序排序。 7.3.17.3.1、选择法排序、选择法排序 算 法 描 述 ： 设 有算 法 描 述 ： 设 有 n n 个 数 的 数 组个 数 的 数 组 a(1),a(2),a(1),a(2),a(n),a(n),要求按递增的次序排列：要求按递增的次序排列： 首先设变量首先设变量k k用于存放当前最小数的用于存放当前最小数的 下标，然后按下列步骤进行：下标，然后按下列步骤进行： Visual Basic 程序设计 C B A 从n n个数中选出最小元素的下标，然后 将最小数与第一个数交换位

27、置，即a(k)a(k)与 a(1)a(1)互换； 先将a(1)a(1)与a(2)a(2)进行比较，k k的初 值为1 1； 若a(2)a(k)a(2)a(k)，则将变量k k指向2 2(k k 总是为较小元素的下标值)； 再将a(k)a(k) 与a(3)a(3)、a(n-1)a(n-1)、 a(n)a(n)比较 ，并依次作出同样的处理，最 终k k为n n个数中最小元素的下标，a(k)a(k)为最 小的元素； 此时将a(k)a(k)与a(1)a(1)互换； 从除第一个数外，其余n n1 1个 数按步骤的方法选出次小的数， 使a(k)a(k)与a(2)a(2)交换位置； 先将k k置为2 2，将

28、a(k)a(k)与 a(3)a(3)、a(4)a(4)、a(n-1)a(n-1)、a(n)a(n)比 较，每当a(i)a(k)a(i)a(k)时，置k k为i i， 最后，k k为第一轮余下的n n1 1个数 中的最小数 将a(k)a(k)与a(2)a(2)互换； 继续进行第三轮、第四轮、.、直到第 n1轮，余下的a(n)a(n)就是n n个数中的最大值； 至此，n n个数已从小到大顺序存放到数 组a a中。 直接选择排序直接选择排序 Visual Basic 程序设计 直接选择法排序 819761 A(1) A(2) A(3) A(4) A(5) A(6) 原始值 819 761 8 第一轮

29、(1) k=1,a(1)和和a(2) 相比较相比较 819 761 1 第一轮(2) a(2)a(1),k= 2,用用a(2)和其和其 他元素相比他元素相比 Visual Basic 程序设计 直接选择法排序 A(1) A(2) A(3) A(4) A(5) A(6) 819761 1 第一轮(3) k=2, a(2)与与 a(1)交换交换 819761 第一轮排序结果 Visual Basic 程序设计 A(1) A(2) A(3) A(4) A(5) A(6) Visual Basic 程序设计 直接选择法排序 819761 第二轮（1） 8 k=2,a(2)和和 a(3)相比较相比较 8

30、19761 8 第二轮（2） a(4)a(2),k=4， 用用a(4)和和a(5)比较比较 819761 7 第二轮（3） A(5)a(4),k=5,a (5)和和a(6)比较比较 直接选择法排序 A(1) A(2) A(3) A(4) A(5) A(6) Visual Basic 程序设计 819761 6 第二轮（4） a(6)a(5),k=6, a(6)和和a(2)交换交换 819761第二轮排序结果 直接选择法排序 A(1) A(2) A(3) A(4) A(5) A(6) Visual Basic 程序设计 819761 9 819761 819761 7 k=3,a(3)和和a(4

31、)比比 较较,a(4)a(3), k=4,用用a(4)和和a(5)比较比较 第三轮（1） a(5) a(j) Then k = j 找出最小值的下标 Next 交换数组元素，使最小的元素排在第一位 t = a(k)： a(k) = a(i)： a(i) = t 将排序结果显示在Label上 Label4.Caption = Label4.Caption + Str(a(i) Next Label4.Caption = Label4.Caption + Str(a(i) 实例四实例四 数组中元素的插入和删除操作数组中元素的插入和删除操作 数组元素的插入、删除操作一般是在已排序好的数组中插入或删除

32、一个元素数组元素的插入、删除操作一般是在已排序好的数组中插入或删除一个元素 ，使得插入或删除以后的数组还是有序的；这涉及到查找问题，在数组中先，使得插入或删除以后的数组还是有序的；这涉及到查找问题，在数组中先 找到插入的位置或删除的元素，然后进行相应的操作。找到插入的位置或删除的元素，然后进行相应的操作。 Visual Basic 程序设计 例例【7-7-5 5】设有一按升序排列的有设有一按升序排列的有n n个元素的数组个元素的数组a a（数组元素为整（数组元素为整 型），现型），现 将一个数将一个数“1111”插入后，仍保持其有序插入后，仍保持其有序。 解题思路解题思路： 查找插入位置k(1

33、k n-1)k(1k n-1)； 从n n1 1到k k逐一往后移动一个位置，将第k k个元素的位置 腾出； 将数据插入； 24681012141618 11 k 4321 实例四实例四 数组中元素的插入和删除操作数组中元素的插入和删除操作 1 1、 插入插入 例例【7-7-6 6】将数将数Num插在数组插在数组A中指定的中指定的Pos位置位置 。 如果如果Pos0，则将，则将Num插在第插在第1个位置个位置 如果如果PosN，则将则将Num插在最后一个位置插在最后一个位置 设计 界面： Command 1 Text 2 Text 3 Visual Basic 程序设计 分析：分析： Num

34、pos 1) 对数组中原对数组中原Pos位置的元素到最后一个元素全部向后移动一个位置位置的元素到最后一个元素全部向后移动一个位置: A(N+1)=A(N) A(N)=A(N-1) A(Pos+1)=A(Pos) For I=N+1 To Pos+1 Step -1 A(I) = A(I - 1) Next I 2) 插入：插入：A(Pos)=Num Visual Basic 程序设计 1) 在在“通用通用”位置声明位置声明: Option Base 1 Dim N As Integer, A() As Integer 2) 在窗体的在窗体的Load事件过程中生成事件过程中生成20个个0，100

35、之间的随机整数，显示于文本框之间的随机整数，显示于文本框Text1中中: Private Sub Form_Load() Text1.Text = N = 20 : ReDim A(N) For I = 1 To N A(I) = Int(Rnd * 101) Text1.Text = Text1.Text ReDim a(1 To 9) 给数组元素赋值 a = Array(2, 4, 6, 8, 10, 11, 12, 14, 16) For i = 1 To 9 Print a(i); Next 查找插入的位置 For k = 1 To 9 If 11 = a(k) Then Exit F

36、or Next 从k+1元素开始往前移动 For i = k + 1 To 9 a(i - 1) = a(i) Next 利用数组重新声明减少一个元素，但保持数组原来的值 ReDim Preserve a(1 To 8) 显示插入后的数组元素 Print: Print Print 插入后：; For i = 1 To 8 Print a(i); Next 实例五实例五 交换数组中各元素交换数组中各元素 例例【7-7-7 7】将数组的第一个元素与最后一个元素交换，第二个元素与倒数第二个元素交换，将数组的第一个元素与最后一个元素交换，第二个元素与倒数第二个元素交换， 依次类推依次类推。(逆序输出逆

37、序输出) Visual Basic 程序设计 Option Base 1 Dim a() Dim i As Integer, t As String a = Array(a, b, c, d, e, f, g, h, i, j) Print 交换前：; For i = 1 To 10 Print a(i); ; Next For i = 1 To 10 2 t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = t Next Print: Print Print 交换后：; For i = 1 To 10 Print a(i); ; Next 小结 1. 数

38、组的基本概念 数组名、数组元素、下标、数组的维数 2.一维数组的定义 3.一维数组的实例应用： （1）分类统计 （2）求平均分，最高分，最低分 （3）选择法排序 （4）数组中元素的插入和删除 （5）交换数组中各元素 Visual Basic 程序设计 观 谢 看 谢 Visual Basic 程序设计 在在VB中，把一组具有同一名字、不同下标的下标变量称为数中，把一组具有同一名字、不同下标的下标变量称为数 组。一个数组可遗憾又若干个下标变量。下标用来指出某个数组组。一个数组可遗憾又若干个下标变量。下标用来指出某个数组 元素在数组中的位置。如元素在数组中的位置。如S（1 to 100）中）中S是数组名，可以表示是数组名，可以表示 逻辑上相关的一组数，其中，逻辑上相关的一组数，其中，“1 to 100”称为下标，可以表示称为下标，可以表示 该数组中的各个元素。该数组中的各个元素。 数组并不是一种数据类型，而是一组有