VB第七章数组教学

Array函数只能初始化 一维数组
数组的下界默认为0， 也可通过option base
Dim a as variant
a=array(1,2,3,4,5,6,7)
语句决定。（举例说明）
第七章 数组
Option Base 1
Private Sub Form_Click()
Dim a as variant a = Array(1, 2, 3, 4, 5) For i = 0 To 4 Print a(i) (若改为1 to 5,需将下界置为1)
a(i) = a(i) + 1
Next j For i = 0 To 10 Print "成绩为" & (i * 10) & "-" & (i * 10 + 9) & "的人数为：" & a(i) Next i End Sub
第七章 数组
第五节 控件数组
一、基本概念
控件数组是由一组相同类型的控件组成，这些控件 共用一个相同的控件名称，具有相同的事件过程。数组
第七章 数组
Type StudType No As Integer Name As String * 20 Sex As String * 1 Mark(1 To 4) As Single „ 学号 ‟ 姓名 „ 性别 ‟ 4门课程成绩
Total As Single
End Type 注意：
‘ 总分
◆自定义类型一般在标准模块(.bas)中定义，默认是Public。
◆自定义类型中的元素类型可以是字符串，但应是定长字符串。
第七章 数组
2、自定义类型变量的声明和使用形式：
Dim 变量名 As 自定义类型名
例如，
Dim Student As StudType ，MyStud As StudType
声明了两个同种类型的变量。
第七章 数组
讲解演示以上过程，编写事件代码 Private Sub Form_Load() Load Command1(1) Command1(1).Visible = True Command1(1).Left = Command1(0).Left + Command1(0).Width End Sub 添加多个控件数组元素（见控件数组例题2）
Next i
End Sub
第七章 数组
2、求数组的上界Ubound( )函数、 下界 Lbound( )函数
形式：ubound(数组名，维)
lbound（数组名，维） 作用：获得数组中指定维的上界和下界
例如：Dim a(1 to 100,-3 to 4) As Integer
Print UBound(a, 1); UBound(a, 2)
第七章 数组
用With语句：
With student .No = 2001 .Name = “张华” .Sex = “男” .Total = 0 For i = 1 To 4 .Mark(i) = inputbox(“请输入第” & I &“门课成绩”) .Total = .Total + .Mark(i)
第七章 数组
3、一维数组元素的输入输出
（使用单层循环，通过inputbox（）函数输入，通过print输出）。
例题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
第七章 数组
一维数组应用：分类统计
统计一个班学生的成绩在0-9、10-19、20-29、…90-99以及100各分数段的人数。
Private Sub Command1_Click() Dim a(10) As Integer For j = 1 To 12 x = Val(InputBox("请输入第" & j & "个学生的成绩")) i = Int(x / 10)
例题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
第七章 数组
第四节 与数组有关的函数
1、Array()函数
Array函数可方便地对数组整体赋值，但声明的数组是动态数组 或连圆括号都可省略的数组，并且其类型只能是variant。赋值后的
数组大小由赋值的个数决定。
例如，要将1,2,3,4,5,6,7 这些值赋值给数组a，可使用下面的 方法赋值。 Dim a() as variant a=array(1,2,3,4,5,6,7)
中的每一个控件用唯一的索引号index即下标，来标识它 们。
二、创建控件数组 在程序设计过程中，有两种方法可以创建控件数组： ①、给多个不同的控件赋以相同的名字。 ②、复制现有的控件并将其粘贴到窗体上。
第七章 数组
例题：使用控件数组创建一个简单的电话拨号程序。
第七章 数组
运行时添加控件数组
步骤如下：
动态数组的大小（其元素的个数）在运行时可以改
变。
第七章 数组
创建动态数组的步骤如下： (1) 声明一个未指明大小及维数的数组。 格式： Dim 数组名( ) 小括号内是空的。 如:Dim a() as integer As 类型
(2) 用ReDim语句分配实际的元素个数。
格式： ReDim 数组名(下标) [ As类型]
第七章 数组
2、二维数组的输入输出 (例题7-3) Option base 1 25 63 89 36 14 58 31 45 27 56 12 65
Dim a(4,4) as integer
For i=1 to 4 for j=1 to 4
90
72 34 70
a(i,j)=val(inputbox(“请输入”))
第七章 数组
例题：利用控件数组制作简易计算器
第七章 数组
第六节 自定义数据类型及其数组 1、自定义类型的定义形式：
Type 自定义类型名 元素名[ As 类型名] … [元素名[(下标)] As 类型名] End Type 其中： ◆元素名：表示自定义类型中的一个成员。 ◆下标：表示是数组。 ◆类型名：为标准类型。 例如，以下定义了一个有关学生信息的自定义类型：
next j Next I For i=1 to 4 for j=1 to 4 print a(i,j); next j Print Next i
第七章 数组
第三节 动态数组 在VB中有两种形式的数组：静态数组和动态数组。 静态数组是指数组元素的个数固定不变。如前面所 述的数组，一经定义，元素的个数不能改变。
要表示自定义类型变量中的某个元素，形式： 变量名.元ห้องสมุดไป่ตู้名
例如：
要表示Student变量中的姓名，第3门课程的成绩，则表示如 下： ，Student.Mark(3)
第七章 数组
给自定义类型变量赋值 student.No = 2001 = “张华” student.Sex = “男” student.Total = 0 For i = 1 To 4 student.Mark(i) = inputbox(“请输入第” & I &“门课成 绩”) student.Total = student.Total +student .Mark(i) Next i Print student.No, student.Total MyStud= student
第七章 数组

下界最小为-32768，上界最大为32767； 省略下界，其默认值为为0； Dim a(10) As Integer

一维数组的大小为：上界-下界+1
又如：Dim B（-3 To 5） As long
As 数据类型，如果省略，则默认为是变体数组
第七章 数组
2、一维数组元素引用 使用形式： 数组名 (下标)
功能：重新定义数组元素的个数。（可以多次使用）
第七章 数组
例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; "个数之和为"; s
第七章 数组
说明： 静态数组声明中的下标只能是常量，而动态数组 ReDim 语句中的下标可以是常量，也可以是有了确定 值的变量。
在过程中可以多次使用ReDim来改变数组的大小， 也可 改变数组的维数。
见例题动态数组
每次使用ReDim语句都会使原来数组中值丢失，可 以在ReDim后加Preserve 参数来保留数组中的数据。
1）在窗体上画出某控件，设置该控件的Index值为0，表
示该控件为数组。 2）在编程时通过Load方法添加其余若干个元素，也可以
通过Unload删除某个添加的元素。
语法： Load 对象名称(Index) UnLoad 对象名称(Index)