资源描述：
《8 数组与记录.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VisualBasic程序设计蓝兴望第8章 数组与记录数组和记录是结构数据类型，是有序的数据的集合。利用数组和记录，可以方便灵活地组织和使用数据。本章介绍如何在VisualBasic中定义和使用数组和记录。8.1数组的概念8.1.1数组的定义格式1：Dim数组名（下标上界）As类型名称（一维数组）Dim数组名（第一维下标上界,第二维下标上界）As类型名称（二维数组）格式2：Dim数组名([下界To]上界[,[下界To]上界]...)其表示形式：A(1)，A(10)X(1,1),X1(1,10),X(2,10)Y(
2、0,0,0),Y(1,2,5)与上面声明等价形式：DimA%(1to10)DimA%(10)‘有11个元素1．数组名的命名规则与变量的命名相同。2．数组的元素个数：上界-下界+1。3．下界必须小于上界，下标下界最小可为-32768~32767。<下界>缺省则为0，若希望下标从1开始，可在模块的通用部分使用OptionBase语句将设为1。其使用格式是：OptionBase0
3、1'后面的参数只能取0或1求数组的上界Ubound()函数、下界Lbound()函数Ubound()函数和Lbound()函数分别用来确定数
4、组某一维的上界和下界值。UBound(<数组名>[,])LBound(<数组名>[,])其中：<数组名>：必需的。数组变量的名称，遵循标准变量命名约定。：可选的；一般是整型常量或变量。指定返回哪一维的上界。1表示第一维，2表示第二维，如此等等。如果省略默认是1。8.1.2默认数组数据类型为Variant的数组称为“默认”数组。对于默认数组来说，同一个数组中可以存放不同类型的数据。因此，默认数组可以说是一种“混合数组”8.2动态数组8.2.1动态数组的定义通常分为两步：首先在窗体层、标准模块或过程
5、中用Dim或Public声明一个没有下标的数组（括号不能省略），然后在过程中用ReDim语句定义带下标的数组。ReDim语句：ReDim[Preserve]变量（下标）As类型例：Dima()AsIntegerRedimPreserveA(20)说明：（1）ReDim语句是一个可执行语句，只能出现在过程中，并且可以多次使用，改变数组的维数和大小。（2）定长数组声时中的下标只能是常量，而动态数组ReDim语句中的下标是常量，也可以是有了确定值的变量。例:PrivateSubForm_Click()DimNAsInt
6、egerN=Val(InputBox(“输入N=？”))Dima(N)AsInteger…….Endsub例如：PrivateSubCommand1_Click（）Dima（）AsIntegerDimn%……n=Val（InputBox（"inputn"））ReDima（n）……EndSub（3）在过程中可以多次使用ReDim来改变数组的大小，也可改变数组的维数。例：ReDimx(10)ReDimx(20)x(20)=30Printx(20)ReDimx(20,5)x(20,5)=10Printx(20,5)（4
7、）每次使用ReDim语句都会使原来数组中值丢失，可以在ReDim后加Preserve参数来保留数组中的数据。但此时只能改变最后一维的大小。Dima()AsIntegerReDima(10)Fori=1To10a(i)=Int(Rnd*100)Printa(i)&Space(3);NextiPrintReDimPreservea(15)‘改变一维数组的大小Fori=1To15Printa(i)&Space(3);NextiDima()AsIntegerDimiAsInteger,jAsIntegerReDima(3
8、,2)ClsFori=0To3Forj=0To2a(i,j)=i*2+jPrint"a(";i;",";j;")=";a(i,j);"";NextjPrintNextiReDimPreservea(3,4)‘改变二维数组的大小Print"-----------------------------------------"Forj=3To4a(3,j)=j+20Print"a(3,“;j–2;")=“;a(3,j-2),Print"a(3,“;j;")=“;a(3,j)Nextj8.2.2数组的清除和重定义用Era
9、se语句清除数组的内容，格式为：Erase数组名[,数组名]...Erase释放动态数组所使用的内存。在下次引用该动态数组之前，必须用ReDim语句重新定义该数组变量的维数。例8.1实验Erase语句的功能StaticSubForm_Click()DimTest(1To20)AsIntegerFori=1To20Test(i)=iPrintTest(i);NextiEra
