北大青鸟：《VB程序设计》培训资料（PPT讲稿）第四章 数组和结构

北大青鸟 7E/ 第四章 数组和结构 Ⅴ ersion3.0 CHANGE题

Version 3.0 第四章

回顾 基本数据类型 变量和常量 变量和常量的作用域 ·操作符和表达式 ·流程控制语句 北大青鸟 FE-

• 基本数据类型 • 变量和常量 • 变量和常量的作用域 • 操作符和表达式 • 流程控制语句

目标 在sua|Basc中定义和使用数组 掌握控件数组的基本概念及使用 在Ⅵ /isual basic中创建和使用自定义的数据 类型 ·使用随机函数 北大青鸟 FE-

• 在 Visual Basic 中定义和使用数组 • 掌握控件数组的基本概念及使用 • 在 Visual Basic 中创建和使用自定义的数据 类型 • 使用随机函数

数组 单独的变量能够存储单个数据值 数组是可以集中存储一组具有相同数据类 型的数据项的一种结构 使用数组的优势:数组中的所有值都用单 个名称来存储,并可以使用位置索引分别 进行标识 北大青鸟 FE-

• 单独的变量能够存储单个数据值 • 数组是可以集中存储一组具有相同数据类 型的数据项的一种结构 • 使用数组的优势：数组中的所有值都用单 个名称来存储，并可以使用位置索引分别 进行标识

声明数组和给数组赋值 声明数组: 例如,为存储2到20之间的偶数声明一个数 组, Dim even arr(9) As Integer 定义了一个共 例如,要给上面声明的数组赋值, 给数组赋值: 有10个元素 even arr (0)=2 even arr (1)=4 even arr(2)=6 even arr (9)=20 5 北大青鸟 FE-

• 声明数组： 例如，为存储 2 到 20 之间的偶数声明一个数 组， Dim even_arr(9) As Integer • 给数组赋值： 例如，要给上面声明的数组赋值， even_arr (0) = 2 even_arr (1) = 4 even_arr (2) = 6 … … … even_arr (9) = 20 定义了一个共 有10个元素的 整型数组

使用数组-示例 Private Sub Form Click o Dim num(10)As工 nteger Dim i As Integer For i =0 to 9 num(i)=i+ 1 Print num(i) Nex七i End Sub (在ⅤB环境中进行演示) 北大青鸟 FE-

Private Sub Form_Click() Dim num(10) As Integer Dim i As Integer For i = 0 To 9 num(i) = i + 1 Print num(i) Next i End Sub （在VB环境中进行演示）

定义数组的下界 数组的下界可以不为0 在Dm语句中,可以显式地指定所声明 的数组的下界 示例 Dim Mynames (1 to 5)as string 可以按如下所示对该数组赋值 Mynames()=Tom" Mynames(2)=Joe Mynames(3)= Jack Mynames(4)=Lisa Mynames(5)=Jeff〃 北大青鸟 FE-

• 数组的下界可以不为 0 • 在 Dim 语句中，可以显式地指定所声明 的数组的下界 • 示例 Dim Mynames (1 to 5) as string ‘可以按如下所示对该数组赋值： Mynames(1) =“Tom” Mynames(2) =“Joe” Mynames(3) =“Jack” Mynames(4) =“Lisa” Mynames(5) =“Jeff

多维数组 在一些情形下可能希望存储多维数据组 成的序列 声明多维数组 例如,要声明一个能够存放5个学生的姓名和 年龄的数组, (0,0) (0,1) Dim stud age(4/ 1) (1,0) 定义了一个5行 20)(2,1) 2列的 Variant 类型的数组 (3,0) (3,1) (4,0) (4,1) 北大青鸟 FE-

• 在一些情形下可能希望存储多维数据组 成的序列 • 声明多维数组 例如，要声明一个能够存放5个学生的姓名和 年龄的数组， Dim stud_age(4,1) (0,0) (0,1) (1,0) (1,1) (2,0) (2,1) (3,0) (3,1) (4,0) (4,1) 定义了一个5行 2列的Variant 类型的数组

为多维数组赋值 ·可用下面的语句为二维数组赋值 Dim stud age(4, 1) stud age(0, 0)="Tom" stud age(0,1)=25 stud age(1,0)="J。e" stud age(1/ 1)=22 Tom 25 stud age(2, 0) lucy Joe 22 stud age(2, 1)=24 stud age(3,0)="red L ucy 24 stud age(3, 1)=25 TTed 25 stud age(4, 0)="Harry ' Harry 23 stud age(4, 1)=23 北大青鸟 FE-

• 可用下面的语句为二维数组赋值 Dim stud_age(4,1) stud_age(0,0) = "Tom" stud_age(0,1) = 25 stud_age(1,0) = "Joe" stud_age(1,1) = 22 stud_age(2,0) = "Lucy" stud_age(2,1) = 24 stud_age(3,0) = "Ted" stud_age(3,1) = 25 stud_age(4,0) = "Harry" stud_age(4,1) = 23 Tom 25 Joe 22 Lucy 24 Ted 25 Harry 23

使用数组元素 要显示上一张幻灯片创建的数组中所有 元素的值 0 Tom 25 DIm 1I J As Integer 22 Fo卫 0T。4 oe F。xj=0T。1 2 24 Print stud age(i, 3) 3 Ted 25 Next j Nex七i 4Harry 23 10 北大青鸟 FE-

• 要显示上一张幻灯片创建的数组中所有 元素的值 Dim i, j As Integer For i = 0 To 4 For j = 0 To 1 Print stud_age(i, j) Next j Next i 0 1 0 Tom 25 1 Joe 22 2 Lucy 24 3 Ted 25 4 Harry 23