VB 第五章 数组-课件·PPT.ppt

第五章数组
数组的概念
静态数组及声明
动态数组及声明
数组的基本操作
控件数组
自定义数据类型
常用算法(二)
常见错误
数组的概念

,然后统计高于平均分的人数。
按以前简单变量的使用和循环结构相结合,求平均成绩程序段如下:
sum = 0
For i = 1 To 100
mark = InputBox("输入" + i + "位学生的成绩")
sum = sum + mark
Next i
aver = sum / 100
但若要统计高于平均分的人数,则无法实现。mark是一个简单变量,存放的是最后一个学生的成绩。
已有知识解决方法:再重复输入成绩,带来两个问题:
(1)输入数据的工作量成倍增加;
(2)若本次输入的成绩与上次不同,则统计的结果不正确。
解决此问题的根本方法,引入数组,始终保持输入的数据,一次输入,多次使用。
静态数组及声明
数组不是一种数据类型,而是一组相同类型的变量的集合,数组必须先声明后使用。
两类数组: 静态(定长)数组、动态(可变长)数组
1. 静态数组及声明
形式: Dim 数组名(下标1[,下标2…]) [As 类型]
声明了数组的名、维数、大小、类型
维数:几个下标为几维数组,最多60维。
下标: [下界 To ] 上界省略下界为0 ,必须为常数或常量,绝对不允许出现变量。
每一维大小: 上界-下界+1
数组大小: 每一维大小的乘积
例:Dim mark(1 to 100) As Integer
Dim lArray( 0 To 3, 0 To 4) As Long 共有 4×5个元素
等价于: Dim lArray(3, 4) As Long
注意:(1)下界缺省为0,也可重新定义数组的下界。例如:
Option Base 1
(2)错误的声明,下标是变量
n =Inputbox(“输入n”):Dim x(n) As Single
(3)在数组声明中的下标说明了数组的整体,即每维的大小; 而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同,但意义不同。
例如: Dim x(10) As Integer ' 声明了x数组有11个元素
x(10)=100 ' 对x(10)这个数组元素赋值
※Option Base后面只能跟0 或1
动态数组及声明
动态数组指在声明数组时未给出数组的大小(省略括号中的下标),当要使用它时,随时用ReDim语句重新指出数组大小。形式如下:
ReDim 数组名(下标[,下标2…]) [As 类型]
例 Sub Form_Load( )
Dim x( ) As Single 求若干个学生的平均分。
…
n =Inputbox(“输入n”)
ReDim x(n)
…
End Sub
说明:
Dim、Private、Public变量声明语句是说明性语句,可出现在过程内或通用声明段;ReDim语句是执行语句,只能出现在过程内。
在过程中可多次使用ReDim来改变数组的大小和维数。
使用ReDim语句会使原来数组中的值丢失,可以在ReDim语句后加Preserve参数来保留数组中的数据。使用Preserve只能改变最后一维的大小,前面几维大小和维数不能改变,不用 Preserve 时前面几维大小和维数可以改变,ReDim 中的下标可以是常量,也可以是有了确定值的变量。
静态数组在程序编译时分配存储单元,动态数组在运行时分配存储单元。
数组的基本操作
1. 数组元素的赋初值
(1)用循环
For i = 1 To 10
iA(i)=0
Next i
注意:
利用Array对数组各元素赋值,声明的数组是可调数组或连圆括号都可省,并且其类型只能是Variant。
上界由Array函数括号内的参数个数可决定,也可通过函数Ubound获得。数组的下界为默认为零,如果有Option Base 1语句,则下界为1
(2) Array函数
Dim ib As Variant
ib = Array(“abc”, “def”, “67”) ’括号内应当用逗号隔开,不能是变量
For i = 0 To UBound(ib) ’获得ib数组的上界值
ib(i); " ";
Next i
-1
(3) Split函数
Dim b As Variant ’变体类型的变量或字符型数组 b = Split("20, 5, 68", ",")
For i = L