Visual Basic程序设计实用教程 教学课件 作者 于秀敏 第5章 数组.ppt

《Visual Basic程序设计实用教程 教学课件 作者 于秀敏 第5章 数组.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章数组5.1数组概述5.2静态数组5.3动态数组5.4数组的基本操作5.5数组的应用举例5.6用户自定义数据类型5.1数组概述1．引例例5.1统计某班30名同学计算机课程的平均成绩及高于平均分的人数。计算平均成绩可以通过使用简单变量和循环结构来完成，程序代码如下：DimaverAsSingleDimmarkAsInteger,iAsInteger,sumAsIntegersum=0Fori=1To30mark=Val(InputBox("输入"&i&"位学生的成绩"))sum=sum+markNextiaver=sum/

2、30思考：如何统计高出平均成绩的人数？用数组解决求30人的平均分和高于平均分的人数，程序代码如下：PrivateSubForm_Click()Dimmark(1To30)AsInteger'数组声明，mark数组有30个元素DimaverAsSingle,iAsInteger,sumAsIntegersum=0Fori=1To30'本循环结构输入成绩，求分数和mark(i)=Val(InputBox("输入"&i&"位学生的成绩"))sum=sum+mark(i)Nextiaver=sum/30'求30个学生的平均分n=0F

3、ori=1To30'本循环结构统计高于平均分的人数Ifmark(i)>averThenn=n+1NextiPrint"平均分：",aver,"高于平均分的人数:",nEndSub2．数组的概念数组：是一组相同类型变量的集合。数组名：作为同一数组中的数，它们使用一个统一的名称（即数组名）来表示。数组元素：数组中的每一个变量。下标：为了区分数组中的每一个元素，需要用一个索引号来区别，该索引号称为下标。使用数组时，先声明后使用。“声明”，就是对数组名、数组元素的数据类型、数组元素的个数进行定义。使用数组时需要注意：（1）整个数组中

4、的下标有上界和下界，数组的元素在上下界内是连续的，下标的上下界决定了该数组中所包含的元素个数（数组的大小）。（2）一个数组中的所有元素具有相同的数据类型。（3）根据数组中下标的个数将数组分为一维数组和多维数组。（4）根据数组中元素个数是否可以改变将数组分为静态数组和动态数组。5.2静态数组在声明时确定了数组元素个数的数组，称为静态数组。根据数组的维数（即下标的个数）不同，可以将它们分为一维数组和多维数组。只有一个下标变量的数组，称为一维数组。1．一维数组的声明声明形式如下：Dim数组名(下标)[As类型]其中：（1）数组名：

5、命名要符合变量名命名规则。（2）下标：必须为常数，不可以为变量或表达式。下标的形式：[下界To]上界（3）数组元素的个数：上界－下界+1。（4）[As类型]：用来声明数组元素的数据类型。如果缺省，则与变量的声明一样，默认为是变体型数组。5.2.1一维数组2．一维数组元素的引用数组元素的引用形式：数组名（下标）其中：下标是整型的常量、变量或表达式。由两个以上下标的数组元素所组成的数组，称为多维数组。1．多维数组的声明声明形式如下：Dim数组名(下标1[,下标2…])[As类型]其中：（1）下标个数：几个下标为几维数组，最多60

6、维。（2）数组元素的个数：数组每一维的元素个数，也就是数组每一维的大小是（上界－下界+1），而整个数组的元素个数，是每一维元素个数的乘积。5.2.2多维数组2．多维数组元素的引用与一维数组一样，多维数组也要先声明，才能使用。数组元素的引用形式：数组名(下标1[,下标2…])UBound()函数和LBound()函数分别用来返回数组指定维的上界和下界值。函数格式如下：UBound(数组名[,N])功能：返回数组指定维的下标上界。LBound(数组名[,N])功能：返回数组指定维的下标下界。其中：数组名：是必须的。数组变量的名称

7、。N：是可选的项，一般是整型常量或变量。指定返回哪一维的下标上界（下界）。如果省略N，则返回的是第一维的上界（下界）。5.2.3LBound函数和UBound函数5.3动态数组在程序执行过程中，数组元素的个数可以改变的数组，称为动态数组。动态数组在声明数组时未给出数组的大小（省略括号中的下标），当要使用它时，随时用ReDim语句重新指出数组大小。建立动态数组分为两个步骤：（1）用Dim声明一个括号内为空的数组（括号不能省略）。格式如下：Dim数组名()[As类型]（2）用ReDim语句声明数组的大小。ReDim语句的作用：重

8、新指出数组的大小。它是在程序执行到ReDim语句时才分配存储空间。格式如下：ReDim[Preserve]数组名(下标1[，下标2…])[As类型]例如：SubForm_Click()Dima()AsSingle…ReDima(2,3)…EndSub说明：（1）ReDim语句的下标可以是常