东北大学可视化程序设计(VB)02第2章I.pptVIP

2.3 数组 2.3.2 数组的初始化 1．一维数组的初始化 Dim 数组名（）As 类型 = {常量1，常量2，…，常量n} 数组初始化时，不能指定下标的上界； 元素个数由花括号中的常量个数决定； 各常量之间用逗号隔开； 常量的类型要与数组类型一致。 Dim numbers( ) As Single = {12,25,-6,2.3,0 } 2.3 数组 2.3.2 数组的初始化 2．二维数组的初始化 Dim 数组名（，）As 类型 = {{第一行值}，{第二行值}，…，{第n行值}} 内层花括号的个数等于二维数组的行数； 第一维下标的上界等于内层花括号个数减1 ； 内层花括号中常量的个数等于二维数组的列数； 第二维下标的上界等于内层花括号中常量的个数减1。 初始化二维数组时，每维数据的个数要一致。 2.3 数组 2.3.2 数组的初始化 3．多维数组的初始化 对于一个n（n=3）维数组来说，初始化时，等号左边括号中要用n-1个逗号指定数组维数，等号右边的花括号中的初值要放在n-1层嵌套的花括号中。 Dim a( , , ) As Integer = {{{1,1,4},{5,2,1}},{{1,5,7},{4,3,7}}, {{0,5,3},{0,1,1}}} 2.3 数组 2.3.2 数组的初始化 4. UBound函数和LBound函数 格式： UBound（数组名[，n]） LBound（数组名[，n]） UBound函数返回指定数组第n维的下标上界值； LBound函数返回指定数组第n维的下标下界值。 如果数组是一维数组，参数n可以省略。 Dim a(,) As Short = {{2, 3}, {1, 2}, {5, 4}} DeBug.WriteLine(UBound(a, 1)) DeBug.WriteLine(LBound(a, 2)) 2.3 数组 2.3.3 数组元素的引用 数组名（下标1[，下标2，……，下标n]） 下标可以是整型常数、变量或整型表达式； 下标取值必须在指定范围之内，即0到下标上界； 在引用数组元素时，数组名和维数必须与定义数组时一致。 Dim a（）As Short = {3，2，4，9} Dim b（1，1）As Short b（1，0）= a（2）+ a（1） b（1，1）= a（0）- a（3） 2.3 数组 2.3.4 动态数组 1．动态数组的定义 动态数组的定义分两个步骤： （1）用Dim、Public、Private等语句声明一个只有括号但没有下标的数组。 （2）在过程中用ReDim语句重定义数组时，指定动态数组的下标上界。 使用ReDim语句的格式为： ReDim [Preserve] 数组名 （下标上界） 2.3 数组 2.3.4 动态数组 1．动态数组的定义 保留上次数组各元素的值 用Dim语句定义好的动态数组 被赋过值的变量 2.3 数组 2.3.4 动态数组 1．动态数组的定义 使用ReDim语句： 可以多次对同一数组进行重定义，并对数组中的元素个数进行修改； 不能改变数组的维数和类型。 2.3 数组 2.3.4 动态数组 1．动态数组的定义 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles _ MyBase.Click Dim arr() As Integer, n As Integer n = 1 ReDim arr(n) arr(0) = 56 : arr(1) = 3 Debug.WriteLine(arr(0) arr(1)) n = 2 ReDim arr(n) arr(2) = 23 Debug.WriteLine(arr(0) arr(1) arr(2)) n = 4 ReDim Preserve arr(n) arr(3) = -10 : arr(4) = 24 Debug.WriteLine(arr(0) arr(1) arr(2) arr(3) _ arr(4)) End Sub Dim arr() As Integer, n As Integer n = 1 ReDim arr(n) arr(0) = 56