Visual Basic 数组

数组是存放具有相同性质的一组数据，也就是数组中的数据必须是同一个类型和性质，且这些数据都是有顺序的。

即所有数组都由连续的内存位置组成。最低地址对应于第一个元素，最高地址对应最后一个元素。

创建数组

要在 VB 中声明一个数组，可以使用 Dim 语句。 例如:

Dim intData(30)  '31 位数组'
Dim strData(20) As String  '21 位字符串数组'
Dim twoDarray(10, 20) As Integer '一个整型二维数组'
Dim ranges(10, 100) '一个二维数组'

您也可以在声明数组的同时初始化数组元素。 例如:

Dim intData() As Integer = {12, 16, 20, 24, 28, 32}
Dim names() As String = {"Karthik", "Sandhya", "Shivangi", "Ashwitha", "Somnath"}
Dim miscData() As Object = {"Hello World", 12d, 16ui, "A"c}

可以使用数组的索引来存储和访问数组中的元素。比如下面的实例:

Module arrayApl
  Sub Main()
   Dim n(10) As Integer ' n is an array of 11 integers '
   Dim i, j As Integer
   ' initialize elements of array n '
   For i = 0 To 10
     n(i) = i + 100 ' set element at location i to i + 100
   Next i
   ' output each array element's value '
   For j = 0 To 10
     Console.WriteLine("Element({0}) = {1}", j, n(j))
   Next j
   Console.ReadKey()
  End Sub
End Module

结果如下:

Element(0) = 100
Element(1) = 101
Element(2) = 102
Element(3) = 103
Element(4) = 104
Element(5) = 105
Element(6) = 106
Element(7) = 107
Element(8) = 108
Element(9) = 109
Element(10) = 110

动态数组

动态数组是可以按照程序的需要进行标注和重新定义的数组。可以使用 ReDim 语句声明动态数组。

ReDim 语句的语法:

ReDim [Preserve] arrayname(subscripts)

其中,

• Preserve 关键字有助于在调整大小时保留现有数组中的数据。
• arrayname 是要重新维度的数组的名称。
• subscripts 指定新的维度。

实例

Module arrayApl
  Sub Main()
   Dim marks() As Integer
   ReDim marks(2)
   marks(0) = 85
   marks(1) = 75
   marks(2) = 90
   ReDim Preserve marks(10)
   marks(3) = 80
   marks(4) = 76
   marks(5) = 92
   marks(6) = 99
   marks(7) = 79
   marks(8) = 75
   For i = 0 To 10
     Console.WriteLine(i & vbTab & marks(i))
   Next i
   Console.ReadKey()
  End Sub
End Module

结果如下:

0    85
1    75
2    90
3    80
4    76
5    92
6    99
7    79
8    75
9    0
10    0

多维数组

VB 支持多维数组，多维数组也被称为矩形数组。可以声明一个 2 维的字符串数组:

Dim twoDStringArray(10, 20) As String

或者是一个整数变量的三维数组:

Dim threeDIntArray(10, 10, 10) As Integer

实例

Module arrayApl
  Sub Main()
   ' an array with 5 rows and 2 columns
   Dim a(,) As Integer = {{0, 0}, {1, 2}, {2, 4}, {3, 6}, {4, 8}}
   Dim i, j As Integer
   ' output each array element's value '
   For i = 0 To 4
     For j = 0 To 1
       Console.WriteLine("a[{0},{1}] = {2}", i, j, a(i, j))
     Next j
   Next i
   Console.ReadKey()
  End Sub
End Module

结果如下:

a[0,0]: 0
a[0,1]: 0
a[1,0]: 1
a[1,1]: 2
a[2,0]: 2
a[2,1]: 4
a[3,0]: 3
a[3,1]: 6
a[4,0]: 4
a[4,1]: 8

锯齿数组(Jagged Array)

锯齿数组也叫交错数组和不规则数组。它是数组的数组。下面的代码显示了声明一个名为 scores 的锯齿状数组:

Dim scores As Integer()() = New Integer(5)(){}

下面是一个锯齿数组的实例:

实例

Module arrayApl
  Sub Main()
   'a jagged array of 5 array of integers
   Dim a As Integer()() = New Integer(4)() {}
   a(0) = New Integer() {0, 0}
   a(1) = New Integer() {1, 2}
   a(2) = New Integer() {2, 4}
   a(3) = New Integer() {3, 6}
   a(4) = New Integer() {4, 8}
   Dim i, j As Integer
   ' output each array element's value
   For i = 0 To 4
     For j = 0 To 1
      Console.WriteLine("a[{0},{1}] = {2}", i, j, a(i)(j))
     Next j
   Next i
   Console.ReadKey()
  End Sub
End Module

结果如下:

a[0][0]: 0
a[0][1]: 0
a[1][0]: 1
a[1][1]: 2
a[2][0]: 2
a[2][1]: 4
a[3][0]: 3
a[3][1]: 6
a[4][0]: 4
a[4][1]: 8

Array 类

Array 类是 VB 中所有数组的基类。它在 System 命名空间中定义。Array 类提供了各种属性和方法来处理数组。

Array 类的属性

下面提供了 Array 类的一些最常用的属性:

Array 类的方法

下面提供了 Array 类的一些最常用的方法:

实例

以下程序演示如何使用 Array 类的一些方法:

Module arrayApl
  Sub Main()
   Dim list As Integer() = {34, 72, 13, 44, 25, 30, 10}
   Dim temp As Integer() = list
   Dim i As Integer
   Console.Write("Original Array: ")
   For Each i In list
     Console.Write("{0} ", i)
   Next i
   Console.WriteLine()
   ' reverse the array
   Array.Reverse(temp)
   Console.Write("Reversed Array: ")
   For Each i In temp
     Console.Write("{0} ", i)
   Next i
   Console.WriteLine()
   'sort the array
   Array.Sort(list)
   Console.Write("Sorted Array: ")
   For Each i In list
     Console.Write("{0} ", i)
   Next i
   Console.WriteLine()
   Console.ReadKey()
  End Sub
End Module

结果如下:

Original Array: 34 72 13 44 25 30 10
Reversed Array: 10 30 25 44 13 72 34
Sorted Array: 10 13 25 30 34 44 72