[计算机软件及应用]b第六章

《[计算机软件及应用]b第六章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第六章数组静态数组动态数组数组的基本操作控件数组VB学习群群号：46955413备注：星期五晚上6102数组的概念数组：若干具有相同数据类型的数据集合数组元素：数组中的基本单位构成格式：Dim数组名（下标）[As类型]下标：只能是常数，用以说明数组的维数和每维的大小。dima(10)asinterger;a(1to5,3to8)dimc(2,3)asinterger;缺省为Variant类型数组101102103104105106数组的分类按数组的内存区开辟时间的不同分：静态数组（Static）

2、动态数组（Dynamic）数组静态数组（定长数组）：数组大小确定的数组。动态数组（可变长数组）：数组大小不确定，在程序运行时分配存储空间。数组的分类按数组的维数分：数组一维数组：具有一个下标的数组二维数组：具有两个下标的数组多维数组：具有多个下标的数组数组的下标下标：即，数组的上下界，指明下标可以使用的最大值和最小值，用以说明数组的维数和每维的大小。格式如下：[下界To]上界1）下标中如果出现上界，上界必须大于下界。[-3To8]2）定义多维数组时，各下标之间用逗号分隔开3）如果不指定[下界To

3、]，则数组元素下标的下界用OptionBase语句控制，如果没有用Option语句，下标下界的缺省值为0数组的下标实例1：dima%(10)说明：数组a是一个一维整型数组，共有11个数组元素,下标范围从0~10。实例2：Dimb(3,4)aslong说明：数组b是一个二维长整型数组，第一维的下标范围0～3，第二维的下标范围为0～4，共分配4×5个空间二维数组各元素的排列b(0,0)b(0,1)b(0,2)b(0,3)b(0,4)b(1,0)b(1,1)b(1,2)b(1,3)b(1,4)b(2,

4、0)b(2,1)b(2,2)b(2,3)b(2,4)b(3,0)b(3,1)b(3,2)b(3,3)b(3,4)输出斐波那契级数的前20项1,1,3,4,7,11,18,……PrivateSubForm_Click()DimF(20)AsInteger,IAsIntegerF(1)=1:F(2)=1'第一、第二项为1ForI=3To20'第三项起每项为前二项之和F(I)=F(I-2)+F(I-1)NextIForI=1To20'在窗体上输出PrintF(I);IfIMod5=0ThenPrint

5、NextIEndSub如果加入OptionBase1程序需要怎么修改？Option语句格式：OptionBasen功能：指定数组下标下界的缺省值说明：1）n为数组下标指定的下界，它只能是0或者1。如果不使用该语句，系统默认下界值为0。2）OptionBase语句只能出现在窗体层或模块层，不能出现在过程中，且必须位于数组定义之前。3）如果定义多维数组，则下标的设定值对每一维都有效。数组下标测试函数格式：Lbound(数组名[,维])Ubound(数组名[,维])功能：Lbound函数返回数组中指定

6、维的下界Ubound函数返回数组中指定维的上界1）格式中[,维]指数组中要测试的某一维数2）对于一维数组来说，则[,维]可以省略。如果测试多维数组，则不能省略。数组下标测试函数OptionBase1Dimy(1To22,－2to20,-3to6)Dimx(20)PrintLound(y,1),Ubound(y,1)PrintLound(y,2),Ubound(y,2)PrintLound(y,3),Ubound(y,3)PrintLound(x),Ubound(x)问输出结果为多少？数组的基本操

7、作1.数组的引用2.数组的输入和输出3.数组的赋值数组的引用数组的引用通常指对数组元素的引用，数组元素的引用形式为：数组名（下标）说明：1.二维或者多维数组，引用时必须给出两个或多个下标a(1)(2)2.引用数组元素时，数组元素的下标必须在建立数组时指定的范围内，否则将发生“下标越界”的情况。数组的输入1.使用Array函数格式：数组变量名＝Array（数组元素值）注意：1.Array只能对一维数组进行初始化，不能对二维数组进行初始化。2.数组变量只能是变体（Variant）类型。OptionB

8、ase1PrivateSubForm_Click()DimaAsVariant,bAsVarianta=Array(1,2,3,4,5,6)b=Array("One","Two","Three")ForEachxInaPrintx;"";NextxPrintFori=1ToUBound(b)Printb(i);"";NextiPrintEndSub数组的输入2.使用循环语句OptionBase1PrivateSubForm_Click()Dima(10)AsIntegerFori=1To10'注