VB第七章数组教学.ppt

第七章 数组 7.1 一维数组 1 7.2 二维数组 2 7.3 动态数组 3 7.4 控件数组 4 内容提要 第一节 一维数组 1、一维数组声明 使用数组之前，一般需要定义数组，以便让系统分配相应的存储单元。 格式: Dim 数组名 ( 下界 To 上界 ) [As 数据类型] 举例： Dim a(1 to 10) As Integer ‘ 声明了a数组有10个元素 说明： 数组名的命名与变量名的命名规则相同 下界和上界 必须为整型常数，不可以为变量 下界最小为-32768，上界最大为32767； 省略下界，其默认值为为0； Dim a(10) As Integer 一维数组的大小为：上界-下界+1 又如：Dim B（-3 To 5） As long As 数据类型，如果省略，则默认为是变体数组 2、一维数组元素引用 使用形式： 数组名 (下标) 例题7-1 输出斐波那契数的前20项 Dim f(1 to 20) As Integer,i As Integer f(1) = 0 : f(2) = 1 for i = 3 To 20 第三项起每项为前二项之和 f(i) = f(i - 2) + f(i - 1) next i for i=1 to 20 print f(i) Next i 例题7-2 输入任意10个数，逆序输出。 Dim a(1 to 10) as integer For i=1 to 10 a(i)=inputbox(“请输入第” I ”个数”) Next I For i=10 to 1 step -1 Print a(i); Next i 3、一维数组元素的输入输出 （使用单层循环，通过inputbox（）函数输入，通过print输出）。 4、一维数组的应用 例题：输入10个学生的成绩，输出大于平均数的成绩 Dim mark(1 To 10) As Single, sum As Single, av As Single For i = 1 To 10 mark(i) = InputBox(输入第 i 个学生的成绩) sum = sum + mark(i) Next i av = sum / 10 For i = 1 To 10 If mark(i) av Then Print mark(i) Next i 第二节 二维数组 1、二维数组声明 定义格式： Dim 数组名(下界 To 上界，下界 To 上界) As 数据类型 例如：Dim Data(1 To 5，1 To 9) As Integer 说明：下界默认为0: 例如， Dim A(2,3) As Currency ‘3行4列 A(0,0) A(0,1) A(0,2) A(0,3) A(1,0) A(1,1) A(1,2) A(1,3) A(2,0) A(2,1) A(2,2) A(2,3) 2、二维数组的输入输出 (例题7-3) Option base 1 Dim a(4,4) as integer For i=1 to 4 for j=1 to 4 a(i,j)=val(inputbox(“请输入”)) next j Next I 36 14 58 31 45 27 56 12 65 72 34 70 For i=1 to 4 for j=1 to 4 print a(i,j); next j Print Next i 第三节 动态数组 在VB中有两种形式的数组：静态数组和动态数组。 静态数组是指数组元素的个数固定不变。如前面所述的数组，一经定义，元素的个数不能改变。 动态数组的大小（其元素的个数）在运行时可以改变。 创建动态数组的步骤如下： (1) 声明一个未指明大小及维数的数组。 格式： Dim 数组名( ) As 类型 小括号内是空的。 如:Dim a() as integer (2) 用ReDim语句分配实际的元素个数。 格式： ReDim 数组名(下标) [ As类型] 功能：重新定义数组元素的个数。（可以多次使用） 例7-4 统计输入的任意个数之和。 Dim N As Integer,A( )As Single, i As Integer, s As Single N = InputBox(输入几个数？) ReDim A(1 To N) For i = 1 To N A(i) = InputBox(输入第 i 个数) s = s + A(i) Next i Print N; 个数之和为