■工程1-Form1(oe) 三回x For■ Click Private Sub Form Click O Dim a(5) Dima 重命名的错误 a=8 a(2)=10 Print a: a(2) End Sub Microsoft visual basic 编译错误: 当前范围内的声明重复 确 帮助
重命名的错误
■工程1- FormI(code) Click e Private Sub Form Click Dim a(5 To 下标界应该 For 1 To 5 于上标界 Print a(;i:="i Next End Sub Microsoft visual Basic 编译错误: 区间无值 确定帮助」
下标界应该 小于上标界
口工程1-Form1(Code) F o■ Click Private sub form click Dim a (5) As integer For i=0 Tol6 越界错误,超 Print a(il 出a(5)的范围 Next i End sub Microsoft visual basic 实时错误9 下标越界 继续创」结束(」画试回 帮助QD
越界错误 ，超 出了a(5)的范围
例2】如何利用数组确定学校的某个学生在校中的哪个班? Private Sub Commandl Click() Dim i As Integer,j As Integer Dim Class(4)As String Dim Student(4, 35) As String Class(0)=“工管一班”: Class(1=“工管二班” 给班级赋值 Clas92)=“法学一班”: Class3)=“法学二班” 合班级赋值 Student0,0)=“李琼”: Student(0,2)=”张三” 给学姓名 赋值 For i=0 To 4 F 0To35 If Student(i,j)=“张三”Then Msgbox“张三在”+ Class(i End if
【例2】如何利用数组确定学校的某个学生在校中的哪个班？ Private Sub Command1_Click( ) Dim i As Integer, j As Integer Dim Class(4) As String Dim Student(4,35) As String Class(0)=“工管一班”：Class(1)=“工管二班” ‘给班级赋值 Class(2)=“法学一班”：Class(3)=“法学二班” ‘给班级赋值 Student(0,0)=“李琼”：Student(0,2)=”张三” ‘给学生姓名 赋值 For i = 0 To 4 For j=0 To 35 If Student(i, j)=“张三” Then Msgbox “张三在”+Class(i) End If Next j Next i End Sub
§71.2多维数组和数组下标界值 在数组中,需要通过两个或两个以上的下标,才能确 定数组元素在数组中的位置,这种数组称为多维数组。 多维数组的定义格式: Dim数组名([第一维下标下界To]第一维下标上界, 第二维下标下界To]第二维下标上界,_ 第三维下标下界To]第三维下标上界) As类型名称
§7.1.2 多维数组和数组下标界值 在数组中，需要通过两个或两个以上的下标，才能确 定数组元素在数组中的位置，这种数组称为多维数组。 ➢ 多维数组的定义格式： Dim 数组名 ( [第一维下标下界 To] 第一维下标上界, _ [第二维下标下界 To] 第二维下标上界, _ [第三维下标下界 To] 第三维下标上界,…) _ As 类型名称