如何：在 Visual Basic 中初始化数组变量

2015-06-08

通过在 New 子句中加入数组文本并指定数组的初始值，可以初始化数组变量。可以指定类型或允许它从数组文本中的值推断出来。有关如何推断类型的更多信息，请参见数组 (Visual Basic) 中的“为数组填充初始值”。

使用数组文本初始化数组变量

可在 New 子句中或在为数组赋值时，在大括号 ({}) 内提供元素值。下面的示例通过多种方式演示如何声明、创建和初始化一个变量，使其包含一个具有 Char 类型元素的数组。
```
' The following five lines of code create the same array. 
' Preferred syntaxes are on the lines with chars1 and chars2. 
Dim chars1 = {"%"c, "&"c, "@"c}
Dim chars2 As Char() = {"%"c, "&"c, "@"c}

Dim chars3() As Char = {"%"c, "&"c, "@"c}
Dim chars4 As Char() = New Char(2) {"%"c, "&"c, "@"c}
Dim chars5() As Char = New Char(2) {"%"c, "&"c, "@"c}
```
执行每个语句后，将创建一个数组，其长度为 3，初始值包含在索引 0 到 2 的元素中。如果您同时提供了上限和值，则必须为从索引 0 到上限的每个元素都包括一个值。

请注意，如果在数组文本中提供了元素值，则无需指定索引上限。如果不指定上限，将根据数组文本中值的数量来推断数组大小。

使用数组文本初始化多维数组变量

将值放在嵌套的大括号 ({}) 中。确保嵌套的数组文本全都推断为类型和长度相同的数组。下面的代码示例演示了多维数组的几种初始化方式。

Dim numbers = {{1, 2}, {3, 4}, {5, 6}}
Dim customerData = {{"City Power & Light", "http://www.cpandl.com/"},
                    {"Wide World Importers", "http://wideworldimporters.com"},
                    {"Lucerne Publishing", "http://www.lucernepublishing.com"}}

' You can nest array literals to create arrays that have more than two  
' dimensions. 
Dim twoSidedCube = {{{1, 2}, {3, 4}}, {{5, 6}, {7, 8}}}

可以显式指定数组界限；也可以不指定数组界限，让编译器根据数组文本中的值来推断数组界限。如果同时提供上限和值，则必须在每一个维度上为从索引 0 到索引上限的每个元素提供一个值。下面的示例通过多种方式演示如何声明、创建和初始化一个变量，使其包含一个具有 Short 类型元素的二维数组。
```
' The following five lines of code create the same array. 
' Preferred syntaxes are on the lines with scores1 and scores2. 
Dim scores1 = {{10S, 10S, 10S}, {10S, 10S, 10S}}
Dim scores2 As Short(,) = {{10, 10, 10}, {10, 10, 10}}

Dim scores3(,) As Short = {{10, 10, 10}, {10, 10, 10}}
Dim scores4 As Short(,) = New Short(1, 2) {{10, 10, 10}, {10, 10, 10}}
Dim scores5(,) As Short = New Short(1, 2) {{10, 10, 10}, {10, 10, 10}}
```
执行每个语句后，将创建一个数组，其中包含六个初始化的元素，它们的索引分别为：(0,0)、(0,1)、(0,2)、(1,0)、(1,1) 和 (1,2)。每个数组位置都包含值 10。

下面的示例通过多维数组重复。在用 Visual Basic 编写的 Windows 控制台应用程序中，将代码粘贴到 Sub Main() 方法内部。最后一个注释显示输出。

Dim numbers = {{1, 2}, {3, 4}, {5, 6}}

' Iterate through the array. 
For index0 = 0 To numbers.GetUpperBound(0)
    For index1 = 0 To numbers.GetUpperBound(1)
        Debug.Write(numbers(index0, index1).ToString & " ")
    Next
    Debug.WriteLine("")
Next 
' Output 
'  1 2 
'  3 4 
'  5 6

使用数组文本初始化交错数组变量

将对象值嵌套在大括号 ({}) 中。虽然对于交错数组，也可以嵌套指定不同长度数组的数组文本，但请确保将嵌套的数组文本括在小括号 (()) 中。小括号将强制对嵌套的数组文本求值，得到的数组将用作交错数组的初始值。下面的代码示例演示了交错数组的两种初始化方式。
```
' Create a jagged array of arrays that have different lengths. 
Dim jaggedNumbers = {({1, 2, 3}), ({4, 5}), ({6}), ({7})}

' Create a jagged array of Byte arrays. 
Dim images = {New Byte() {}, New Byte() {}, New Byte() {}}
```

下面的示例通过交错数组重复。在用 Visual Basic 编写的 Windows 控制台应用程序中，将代码粘贴到 Sub Main() 方法内部。代码中的最后一个注释显示输出。

' Create a jagged array of arrays that have different lengths. 
Dim jaggedNumbers = {({1, 2, 3}), ({4, 5}), ({6}), ({7})}

For indexA = 0 To jaggedNumbers.Length - 1
    For indexB = 0 To jaggedNumbers(indexA).Length - 1
        Debug.Write(jaggedNumbers(indexA)(indexB) & " ")
    Next
    Debug.WriteLine("")
Next 

' Output: 
'  1 2 3  
'  4 5  
'  6 
'  7

通过

如何：在 Visual Basic 中初始化数组变量

使用数组文本初始化数组变量

使用数组文本初始化多维数组变量

使用数组文本初始化交错数组变量

请参见

任务

其他资源

其他资源