前面我们学习了一维数组,这种数组适用于存放一系列没有层次 关系的一维数据,如姓名,单据等记录,但如果数据中有层次关系, 例如要记录一个学校所有班级的学生记录,该怎么办呢? 班级1张伟刘伟孙权 ●。●●● 班级2齐秦非儿孔明 ●●●●●● 班级3王真孙楠、关羽 012 0 ●。●●。● Student(2, 1) 二维数组的定义格式 Dim数组名([第一维下标下界To]第一维下标上界, 第二维下标下界T]第二维下标上界 As类型名称
➢ 二维数组的定义格式： Dim 数组名 ( [第一维下标下界 To] 第一维下标上界, _ [第二维下标下界 To] 第二维下标上界) _ As 类型名称 前面我们学习了一维数组，这种数组适用于存放一系列没有层次 关系的一维数据，如姓名，单据等记录，但如果数据中有层次关系， 例如要记录一个学校所有班级的学生记录，该怎么办呢？ 张伟 刘伟 孙权 ……0 齐秦 非儿 孔明 ……1 王真 孙楠 关羽 ……2 ……0 ……1 ……2 …… 班级1 班级2 班级3 列 行 Student(2,1)
【例1分别定义一个一维数组和一个二维数组。 Dim EnglishS(29) As Integer 数组名称下标上界数据元素的类型 Englishs(1)=85: EnglishS(28)=63 数组中的 数据元素的下标值 个数据元素 Englishs(o) EnglishS(1) EnglishS(28) English S(29) 85 63
【例1】分别定义一个一维数组和一个二维数组。 Dim EnglishS(29) As Integer 数组名称 下标上界 数据元素的类型 EnglishS(1) ＝85: EnglishS(28) ＝63 数组中的一 个数据元素 数据元素的下标值 EnglishS(0) EnglishS(1) ………… EnglishS(28) EnglishS(29) 85 63
Dim StuScore(1 To 30, 1 To 2)As Integer TT T 数组名称 第1维下第2维下 标上界 标上界 第1维下第2维下 标下界 标下界 StuScore(1, 1) StuScore(1, 2) StuScore (2, 1) StuScore(2. 2) StuScore(29, 1) StuScore(29, 2) StuScore(30, 1) StuScore(30, 2) 行下标 列下标
Dim StuScore(1 To 30，1 To 2) As Integer 数组名称 第 1维下 标上界 第 1维下 标下界 第 2维下 标下界 第 2维下 标上界 StuScore(1，1) StuScore(1，2) StuScore(2，1) StuScore(2，2) …… …… StuScore(29，1) StuScore(29，2) StuScore(30，1) StuScore(30，2) 行下标 列下标
对数组进行定义了以后,就可使用了,如: Private Sub Commandl Click Dim I, n As Integer Dim Englishs(I To 30)As Integer For I=1 To 30 Englishs(I)=Val( nput Box("请输入学生成绩") Next I For I=1 To 30 Pint"学号为";I,"的学生英语成绩是"; EnglishS(I Next I End sub
Private Sub Command1_Click( ) Dim I, n As Integer Dim EnglishS(1 To 30) As Integer For I = 1 To 30 EnglishS(I) = Val(InputBox("请输入学生成绩")) Next I For I = 1 To 30 Print "学号为 "; I; " 的学生英语成绩是 "; EnglishS(I) Next I End Sub 对数组进行定义了以后，就可使用了，如：
定义数组时应该注意的问题: >在同一个过程中,数组名不能与变量同名 >在定义数组时,下标可以是常数,也可以是变量或表达式, 但变量的值必须在执行数组定义语句之前给出 n= inputbox(输入n的值”) Dim array1(10), array2 (n), array3(n+5) 下界必须小于上界
定义数组时应该注意的问题 ： ➢ 在同一个过程中，数组名不能与变量同名 ➢ 在定义数组时，下标可以是常数，也可以是变量或表达式， 但变量的值必须在执行数组定义语句之前给出 – n=inputbox(“输入n的值”） – Dim array1(10), array2(n), array3(n+5) ➢ 下界必须小于上界