vb.net数组的使用操作说明示例

本文可能是《VB.NET是怎样做到的》的最后一篇了，因为我再也想不出VB.NET有什么功能是C#等没有的了。不过由于Visual Basic 2005的推出，又有一些新功能出现了。所以从下一篇开始就是另一个系列《Visual Basic 2005新功能点评》，本文就是这个系列的完结篇。

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#，因为我无法用VB的语法表示它）：

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#，我无法用VB的语法表示它）

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的原理了。

admin

368