丽水学院VB-5-2008422115847837.pptVIP

5.1 数组的概念 程序2： Dim aver As Integer, mark(1 To 35) As Integer For i = 1 To 35 mark(i) = InputBox(输入第 i 位学生的成绩, 数据输入) If mark(i) maxmark Then maxmark = mark(i) aver = aver+mark(i) Next Print aver = aver/35; maxmark 从表面上看，两端程序差别不大，但是后者引入了数组mark(1 to 35)，这样，每一个学生的成绩都保留在数组中，可以随时加以调用。 概念： 数组是具有相同数据类型的元素所组成的有序集合，每个数组是用一个统一的名称表示数组元素的集合，数组中的每一元素具有唯一索引号（即下标），可以用数组名及下标唯一地识别一个数组的元素，。 原则 数组必须遵循先声明后使用的原则，声明一个数组就是声明其数组名、类型、维数和数组的大小。下标的个数决定数组的维数，各维下标之间用逗号分开。在VB中有一维数组、二维数组等，最多可以达到60维。 分类 按声明时是否可以确定数组的大小将数组分为静态数组和动态数组，前者大小固定，后者大小不确定，以后在使用前需要重定义。 2、多维数组 声明形式：Dim 数组名（下标1[，下标2……]）[As 类型] 其中： 下标个数决定了数组的维数，最多允许60维。 多维数组大小为每一维大小的乘积。 例如： Dim x(3,4) as Long 数组大小=4*5=20个 Dim y(2,3,1 to 4) 数组大小=3*4*4=48个 注意事项 下界可重设：在窗体层或标准模块中输入:Option Base 1 整体与个别如：Dim a(10) as integer ’声明时是整体 a(10)=100 ‘使用时是个体 下标是常量如：Dim a%(n) ‘错，声明时必须为常量 a(n)=10 ‘其他地方可以是变量 下标越界如：Dim a%(10) a(11)=11 ‘错，下标范围0~10。 5.3 动态数组 静态数组的大小在定义时已经确定。有时可能事先无法确认到底需要多大的数组，而希望能够在运行时改变数组的大小，这就要用到动态数组。动态数组可以在任何时候由Redim语句指出维数的大小。 创建动态数组的步骤： （1）在过程中声明括号内为空的数组（用Public（公用）、Private、Static或Dim语句）。 （2）在过程中用ReDim语句指明数组大小，格式为： ReDim [Preserve] 数组名〈维数定义）[As 类型] 数组示例：统计在随机产生的10个两位整数中的偶数的个数 Dim a(9) As Integer Dim count As Integer Dim I As Integer, n As Integer Randomize ******错误1****** For I = 1 To 10 *****错误2***** n = Int(Rnd * 90) a(I) = n Form1.Print a(I) If a(I) Mod 2 = 0 Then count = count + 1 End If Next I *****错误3***** msgbox(偶数个数：,count) 注意事项 动态数组中：下标可以是常量，也可以是有了确定值的变量。 可多次使用ReDim来重定义数组（包括大小和维数）。 使用ReDim语句会使原来的数据丢失，可在ReDim后加Preserve来保留数据，但使用后只能改变最后一维大小。 例：Dim a%() n=val(inputbox(“请输入n的值”） ReDim Preserve a%(n) …… 补充： 数组的清除 经过定义的数组大小不能改变。为了重新初始化静态数组的元素，或者释放动态数组的存储空间，可以使用Erase 语句，其语法格式为： Erase 数组变量 5.4 数组的基本操作 1、给数组元素赋初值 （1）使用循环结构 如给数组s（100）的元素赋初值： For i = 1 To 100 s(i) = 0 Next （2）使用Array（）函数 Array 函数的作用:只能给Variant型的数组变量赋初值，其语法格式为：变量名=Array(列表),如： a=array(1,2,3) 5、求最大值及求和 Dim Max%, n%, Sum%, i%, j%, a%(100) Randomi