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在vb什么意思啊??????? Array.Copy( _
??????????? arySrc, (j * lenSrcR), aryDest, (j * lenDestR), minLen)
??????? j += 1
??? Loop
Else'⼀维数组
??? Array.Copy(arySrc, aryDest, lenSrc)
End If
很清晰的看出，它是⽤Array.Copy对数组进⾏复制的。⾄此，我们就完全搞清楚ReDim Preserve的原理了。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。