使用数组-示例 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