本章要求：掌握数组的概念；理解排序的三种常用方法;掌握控件数组的应用方法;6.1数组的声明与使用例如:Dimcj(1to80)AsSingle‘定义了单精度类型一维数组,上界为80,下界为1,共有80个元素.二维数组LArray(3,4)的下标排列如下:6.1.2数组的赋值及引用1.数组的赋值:可以用赋值语句、Inputbox函数或文本框给数组元素赋值。由于数组元素很多，一般都伴随着循环语句的使用。2.数组的引用：引用数组时要指明数组名及下标，下标可以是常量、变量、或数值表达式。但要注意，引用下标的取值范围不能超过所定义数组的上、下界，否则将出现“下标越界”的错误信息。6.1.3与数组有关的函数2.Array函数[格式]Array([数据1[,数据2[,数据3]….]])[功能]将数据1,数据2….分别赋给一个可变类型的简单变量或动态数组中,用它可方便的给一维数组各元素赋值,但不能给二维以上的数组赋值。注意:(1).用Array对数组各元素赋值,声明的数组必须是可变类型的简单变量或动态数组；(2).数组的下界默认为0,除非用OptionBase语句说明,上界由Array函数括号内的数据的个数决定,也可以通过函数Ubound获得。3.IsArray函数[格式]IsArray(变量名)[功能]测试变量名是否为一个数组。若是数组,函数值为True,否则为False[例6-1]Array和IsArray两函数的使用6.1.4动态数组与数组重定义[格式]ReDim[Preserve]数组变量名（下标）[As类型][功能]用于为动态数组重新分配存储空间[说明](1).可以对同一个动态数组多次使用ReDim重新定义其大小。(2).Preserve可选项只能用在改变最后一维的上界时,保留数组中原来的数据,否则原数据丢失。<下标>可以使用常量、变量或表达式。(3).不能对已定义的固定数组重新定义.(4).ReDim语句只能在过程中使用,不能用在窗体和模块级。(5).ReDim不能改变动态数组的数据类型。3.数组元素的初始化一旦声明了数组，系统自动对每个元素的值进行初始化，即默认初值。数组元素的初值取决于数据类型。[例6-2]在VB6.0中，提供了数组对数组直接赋值，但在使用时应注意：被赋值的数组必须声明为Variant类型的动态数组，否则会出错。6.1.5ForEach…Next语句[格式]ForEach循环变量In数组名循环体[Exitfor]……Next循环变量6.2数组应用2.选择交换排序法：6.3控件数组6.3.1创建控件数组1.在创建界面时建立控件数组方法一:在窗体上先从工具箱中添加一个控件然后用“复制”,“粘贴”命令。2.用命令添加、删除控件数组的元素[格式]load控件数组(index)Unload控件数组(index)[说明]1）.每个添加的元素必须通过left和top属性确定其位置，Visible=True。2）.load只能添加已有控件数组的元素,不能创建控件数组。3）.Unload只能删除用load添加的元素,不能删除设计时创建的元素。6.3.2控件数组应用举例[例6-8]设计一个简易计算器,要求能够进行整数的加、减、乘、除运算，并能将十进制转换为二进制、八进制、十六进制，还能进行开平方运算。选择题：1.Dimsum(10)asinteger声明了有——个元素的数组9B.10C.11D.122.Dimarrb(3to5,-2to2)所定义的数组的元素个数是——20B.12C.15D.243.OptionBase1PrivateSubForm_Click()Dima(4,3)AsIntegerPrintUbound(a,2)EndSub显示的结果是————A.2B.3C.4D.55.OptionBase1Dima(0to5)AsInteger,b(10)AsInteger不会出现下标越界的是——A.Printa(0)B.Printa(6)C.Printb(0)D.Printb(11)6.OptionBase1PrivateSubForm_Click()Dima,bA=Array(10,20,30):b=a(2)EndSubb的值为——A.10B.20C.30D.319.运行Load命令可以添加指定控件数组的元素，不能复制的属性是——topB.WidthC.visibleD.Enabled