VB程序设计 第五章 数组.docVIP

第五章 数组 主要内容 数组的概念 静态数组及声明 动态数组及声明 数组的基本操作 控件数组 自定义数据类型 常用算法（二） 常见错误 5.1 数组的概念 1．引例 若我们要求一个班100个学生的平均成绩，然后统计高于平均分的人数。按以前简单变量的使用和循环结构相结合，求平均成绩程序段如下： aver = 0 For i = 1 To 100 mark = Val(InputBox(输入第 i 位学生的成绩)) aver = aver + mark Next i aver = aver / 100 但若要统计高于平均分的人数，则无法实现。mark是一个简单变量，存放的是最后一个学生的成绩。 从已有知识解决方法：再重复输入成绩，逐一与平均分比较。这样带来两个问题： （1）输入数据的工作量成倍增加； （2）若本次输入的成绩与上次不同，则统计的结果不正确。 解决此问题的根本方法是：始终保持输入的数据，一次输入，多次使用，为此必须引入有关数组的内容。 2．数组的概念 数组并不是一种新的数据类型，而是一组相同类型的变量的集合。数组必须先声明后使用。 在VB中有两类数组，一类是静态(定长)数组另一类称为动态(可变长)数组。 5.2 静态数组及声明 在声明数组时就确定了数组元素的个数的数组称为静态数组。 定义格式: Dim 数组名(下标1[,下标2…]) [As 类型] 数组维数：定义数组是用几个下标就表示数组是几维数组，最多60维。 定义数组是下标的形式为 [下界 To ] 上界 省略下界则系统默认下界为0，下界上界的值必须为数值常数或常数表达式（也可含逻辑常数或数值字符串）。数组每一维大小： 上界－下界+1。数组元素的个数（或称大小）： 每一维大小的乘积 [例] Dim mark(1 to 100) As Integer 定义数组mark为一维整型数组，其下界为1，上界为100，大小为100（即mark有100个元素）。 Dim lArray( 0 To 3， 0 To 4) As Long 它等价于： Dim lArray(3， 4) As Long 类型为长整型，二维数组，行下界为0，行上界为3，列下界为0，，列上界为4，共有 4×5个元素。 又如定义， Dim a(-3.5 To 9, 7) 定义了数组a为两维变体数组（这样数组内的元素的值类型可以不同，如 a(-1, 4) = aa: a(-1, 5) = 3），其中行下界为 -4，行上界为9；列下界为0，列上界为7。 数组mark在内存中的分配形式（连续的一个区域）： mark(1) mark(2) mark(3) …… mark(99) mark(100) 数组lArray在内存中的分配形式（连续的一个区域）： lArray(0,0) lArray(0,1) lArray(0,2) lArray(0,3) lArray(0,4) lArray(1,0) lArray(1,1) lArray(1,2) lArray(1,3) lArray(1,4) lArray(2,0) lArray(2,1) lArray(2,2) lArray(2,3) lArray(2,4) lArray(3,0) lArray(3,1) lArray(3,2) lArray(3,3) lArray(3,4) 注意： 下界缺省为0 ,也可在定义数组时改变确省的下界值为1（注意：下界缺省值只能是0或1）。这就要求在窗体或模块的通用部分写上：Option Base 1。 错误的声明（下标是变量） n =Inputbox(“输入n”） Dim x(n) As Single （3）在数组声明中的下标说明了数组的整体,即每一维的大小；而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同，但意义不同。 [例如] Dim x(10) As Integer 声明了x数组有11个元素 x(10)=100 对x(10)这个数组元素赋值 （4）数组声明以后，就可以使用数组中的元素了，但要注意不要使数组的下标越界，以免程序在运行时出错（运行时系统会报下（上）界错误）。 [例如] Dim score( 1 to 50) as single score(1), scor(15)是正确的使用数组元素，但 score(0)则不是正确的使用数组元素，而score(I+j*m)则应注意其表达式的结果是否在1～50之内，是则是正确引用，不是，则犯下标越界错误。数组的下标表达式结果可以是一个实数或数值型字符串，但是最终对这个值四舍五入成整数。（特例，只有一位小