VB6以前的数组是十分灵活的。而VB.NET在数组方面为了适应.NET Framework做了一些改变,但仍然有较强的灵活性。下面的代码展示了数组的常见操作。没有固定下标上界的数组如b()成为动态数组,而固定了上界的数组,如a(20)称为固定数组。
Dim a(10) As Integer
Dim b() As Integer = {1, 2, 3}
Dim c As Integer()
Dim d() As Integer
d = New Integer() {4, 5, 6}
Dim e(,) As Integer = {{1, 2}, {3, 4}}
Redim c(20)
Redim Preserve c(30)
我们不难看出,VB的数组定义语句可以将括号放在变量的后面,也可以放在类型的后面。如果希望用{}来初始化数组,那么数组就必须是动态的,不能指定下标上界。ReDim可以改变数组的任意一维的大小,但会清除数组的内容;ReDim Preserve只能改变数组最后一维的大小,并保留数组的内容。
首先看看动态数组。Dim a() As T() = {}语句先执行了数组的定义语句,然后它执行了和a = New T() {}语句一样的功能。如下代码所示:
a = New T() {1, 2, 3}
该语句执行的实际功能是
Dim tmp(2) As T
tmp(0) = 1
tmp(1) = 2
tmp(2) = 3
a = tmp
无论a是否是本地变量,都会建立一个临时的本地数组,然后赋值给a。如果a是一个类的字段,那么这样初始化带来的代价要小一些。这种语法和VB6的Array函数有些相似,但它是强类型的。
动态数组和固定数组都可以采用ReDim语句来重新指定下标的范围。ReDim语句在运行时实际创建了新的数组实例,如下所示(C#):
c = new int[21]; //ReDim c(20)
我们有时需要长度为0,但不是Nothing的数组,比如在反射中常常要处理没有参数的方法的参数表,就是这种类型的数组。C#中定义这种数组的语法是:
c = new int[0];
在VB中,实现上述功能的语法有点令人费解,它是:
ReDim c(-1)
不管怎么说,这个语法是有用的,每个VB的使用者都应该记住它。
最后我们看看ReDim Preserve语句。它可以更改一维数组的大小,也可以更改多维数组中最后一维的大小。但要注意的是,如果用它来改变不是最后一维的大小,出现的错误是运行时错误而不是编译错误。当VB的编译器遇到下列语句时
ReDim Preserve c(30)
它将自动被翻译成(C#)
c = ((int[]) Utils.CopyArray(((Array) c), new int[31]));
其中Utils.CopyArray是Microsoft.VisualBasic.dll中的工具函数,我们看看它的实现方法。首先它判断是否正在使用ReDim Preserve修改最后一维的大小,代码是:
If (aryDest.Rank <> arySrc.Rank) Then
Throw ExceptionUtils.VbMakeException(New InvalidCastException( _
Utils.GetResourceString("Array_RankMismatch")), 9)
End If
destRank = (aryDest.Rank - 2)
i = 0
Do While i <= destRank
If (aryDest.GetUpperBound <> _
arySrc.GetUpperBound) Then
Throw ExceptionUtils.VbMakeException(New ArrayTypeMismatchException( _
Utils.GetResourceString("Array_TypeMismatch")), 9)
End If
i += 1
Loop
我们可以很清晰的看到,上述代码确认目标数组和源数组有相同的维数,以及除了最后一维一外有相同的下标上界。确认完毕后,调用下列代码来执行数组的复制:
If (arySrc.Rank > 1) Then '多维数组
srcRank = arySrc.Rank
lenSrcR = arySrc.GetLength((srcRank - 1))
lenDestR = aryDest.GetLength((srcRank - 1))
If (lenDestR = 0) Then
Return aryDest
End If
minLen = Math.Min(lenSrcR, lenDestR)
m = ((arySrc.Length / lenSrcR) - 1)
j = 0
Do While (j <= m)
Array.Copy(arySrc,(j * lenSrcR),aryDest,(j * lenDestR),minLen)
j += 1
Loop
Else '一维数组
Array.Copy(arySrc, aryDest, lenSrc)
End If
很清晰的看出,它是用Array.Copy对数组进行复制的。
至此,我们就完全搞清楚ReDim Preserve的原理了。