[工学]第4章 数组和控件数组.pptVIP

（4）每次使用ReDim语句都会使原来数组中的值丢失，可以在ReDim后加Preserve 参数来保留数组中的数据。 Dim a( ) As Integer ReDim a(2) As Integer For i = 1 To 2 a(i) = i Print a(i); Next i Print ReDim a(3) As Integer For i = 1 To 3 Print a(i); Next i ReDim Preserve a(3) As Integer 此时，Print a(i)执行结果是什么？ 正确使用ReDim语句，注意的问题： 1. ReDim语句只能出现在过程中，不能放在模块的声明部分。 2. 动态数组的类型在声明语句中规定，因此不能用 ReDim语句来改变动态数组的类型。例如，下面的用法是错误的： Dim Ary( ) as Integer ReDim Ary(1 to 3) as string 3. 动态数组的维数在ReDim里给出，例如， Dim Ary( ) as Integer ReDim Ary(1 to 5) ReDim Ary(1 to 3,2 to 8) ■ 求数组的上界Ubound( )函数、 下界 Lbound( )函数 Ubound( )函数和Lbound( )函数 分别用来确定数组某一维的上界和下界值。 使用格式如下： UBound(数组名[, N]) LBound(数组名 [, N]) 其中： 数组名：必需的。数组变量的名称，遵循标准变量命名约定。 N ：可选的；一般是整型常量或变量。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略默认是1。 例如： Dim a(5) as integer,b(3,4) as integer UBound(a) UBound(b,1) UBound(b,2) LBound(b,2) 例如： Dim b as Integer , i as Integer b=Val(Text1.Text) Redim a(b ) For i=Lbound(a) to Ubound(a) a(i)=Val(InputBox(“请输入数值”)) Next i 注意：编写代码时，因无法知道数组a下标的上界和下界， 则可以用Lbound和Ubound函数取得。 四、与数组操作有关的函数 Array函数 Array函数可方便地对数组整体赋值，但它只能给声明为Variant的变量或仅由括号括起的动态数组赋值。赋值后的数组大小由赋值的个数决定。注意：只适用于一维数组，只能对一维数组进行初始化。 例如，要将1,2,3,4,5,6,7 这些值赋值给数组b，可使用下面的方法赋值。 Dim b() b()=Array(1,2,3,4,5,6,7) Dim b b=Array(1,2,3,4,5,6,7) 五、 控件数组 1 . 控件数组的概念 一组相同类型的控件组成。 它们共用一个控件名，具有相同的属性，建立时系统给每个元素赋一个唯一的索引号(Index)。 控件数组共享同样的事件过程，通过返回的下标值区分控件数组中的各个元素。 例： Private Sub Command1 _Click(Index As Integer) … If Index=3 then ‘ 处理第四个命令按钮的操作 End If … End Sub 2. 控件数组的建立 一、在设计时建立控件数组的步骤：(主要讲解) 1．窗体上画出控件，进行属性设置，这是建立的第一个元素； 2．选中该控件，进行“Copy”操作若干次和“Paste”操作若干次建立了所需个数的控件数组元素。 3．进行事件过程的编程。? 数 组 数组的概念：数组是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标来区分；下标代表元素在数组中的位置。 其表示形式： A(1)，A(10) X(1,1), X1(1,10), X(2,10) Y(0,0,0), Y(1,2,5) Visua