第4.4章 数组xin.pptVIP

教学内容 变量数组的声明 控件数组 数组应用举例 数组排序算法 Dim a(1 To 40) As Integer 定义一维数组，有40个元素 Dim a(40) As Integer ‘定义一维数组，有41个元素 Option Base 1 Dim a(40) As Integer ’定义一维数组，有40个元素 Dim b(30，10) As Single 定义二维数组，有31 * 11 = 341个元素 Dim x(1 To 20，1 To 10) As Single 定义二维数组，有20 * 10 = 200个元素 Dim y(50，1 To 6)AS Single ‘定义二维数组，有51 * 6 = 306个元素 k = 2 Dim a(1 To k) ‘错误 如有二维数组定义： Dim A(-1 to 2，0 to 3) As Integer 第一维的大小为4，表示4行，第二维的大小为4，表示4列，则A数组中共有4×4=16个元素 （二）动态数组的声明 动态数组是在数组声明时未指定数组的大小，需要使用时才用Redim语句指定大小。 定义动态数组需要分以下两步进行： 1) 定义一个没有下标的数组。 Dim数组名( ) [As 数据类型] 2) 用ReDim语句分配数组的实际元素个数。 ReDim 数组名(维数定义) [As 类型] 例 Dim a() AS Integer Redim a(1 To 20) ‘在过程中用Redim 语句确定数组的大小 1.下标生成——主要用于数组元素与下标之间存在函数关系 例：生成一维数组，元素为1、3、5、7…… Private Sub Form_Click() Dim A(1 To 10) As Integer, i As Integer For i = 1 To 10 A(i) = 2*i-1 Next i …… End Sub 2.Array函数——整体赋值 VB提供了Array函数对数组进行初始化，在使用Array函数之前必须先定义一数组变量，即用一变量表示数组，变量名后没有括号，且类型为Variant型。 如：Dim a 然后使用Array函数进行赋值： a=Array(0,1,2,3,4,5,6,7,8,9) 系统根据Array函数的参数个数决定数组a的大小，并将这些数据赋给对应的数组元素，数组元素的下标默认从0开始，如这里a(0)=0，a(1)=1，……a(9)=9 数组的输出 1.一维数组 使用一重循环实现。 如： Private Sub Form_Click() Dim A(1 To 10) As Integer, i As Integer …… 数组A的输入和处理 For i = 1 To 10 Print A(i), 在一行上显示 Next i …… End Sub 2．二维数组 使用二重循环按行或列显示。 Private Sub Form_Click() Dim C(1 To 10, 1 to 5) As Integer Dim i As Integer,j As Integer …… 数组C的输入和处理 For i = 1 To 10 For j = 1 To 5 Print C(i,j), Next j Print 每行行末换行 Next i …… End Sub 习题课 （二） 控件数组的使用 同一个控件数组中的所有控件共享相同的事件过程。 SubPrivate Sub Command1_Click(Index As Integer) End Sub 根据Index的值决定当前按下了哪一键 （三） 控件数组和一般数组的比较 控件数组 一般数组 元素为一个控件，是一对象 元素可以是各种类型的数据 下标可以不连续 下标必须连续 只有一维 可以有多维 可在空闲索引号位置上增加元素 只能在最未位置上加元素 [例4-17