Variant 變量中存儲的 Objects
可以將 Objects 存儲在 Variant 變量中。當需要高效地處理包括 Objects 在內的各種數據類型時，這可能十分有用。例如，一個數組中的所有元素都必須具有相同的數據類型。將數組的數據類型設置成 Variant 就可將Objects 連同其它數據類型一起存入同一個數組中。
數組
如果有過用其它語言編程的經歷，那麼想必會熟悉數組的概念。由於有了數組，可以用相同名字引用一系列變量，並用數字（索引）來識別它們。在許多場合，使用數組可以縮短和簡化程序，因為可以利用索引值設計一個循環，高效處理多種情況。數組有上界和下界，數組的元素在上下界內是連續的。因為 Visual Basic對每一個索引值都分配空間，所以不要不切實際聲明一個太大的數組。
注意 這一部分討論的數組是程序中聲明的變量數組。它們不同於控件數組，控件數組是在設計時通過設置控件的 Index 屬性規定的。變量數組總是連續的；與控件數組不同的是，不能從一個數組的中部加載或卸載數組元素。
一個數組中的所有元素具有相同的數據類型。當然，當數據類型為 Variant時，各個元素能夠包含不同種類的數據（對象、字符串 、數值等等）。可以聲明任何基本數據類型的數組，包括用戶定義的類型（請參閱第八章“再論編程”中的“創建自己的數據類型”）和對象變量（請參閱第九章“用對象編程” ） 。
在Visual Basic中有兩種類型的數組：固定大小的數組——它總是保持同樣的大小，以及在運行時大小可以改變的動態數組。在本章後面的“動態數組”中將要詳細討論動態數組。
聲明固定大小的數組
有三種方法聲明固定大小的數組，用哪一種方法取決於數組應有的有效范圍：
建立公用數組，在模塊的聲明段用 Public 語句聲明數組。
建立模塊級數組，在模塊的聲明段用 Private 語句聲明數組。
建立局部數組，在過程中用 Private 語句聲明數組。
設定上下界
聲明數組時，在數組名之後跟一個用括號括起來的上界。上界不得超過 Long數據類型的范圍（-2,147,483,648 到 2,147,483,647）。例如，下列數組聲明可出現在模塊的聲明段：
Dim Counters (14) As Integer '15 個元素。
Dim Sums (20) As Double '21 個元素。
為建立公用數組，直接用 Public 取代 Dim。
Public Counters (14) As Integer
Public Sums (20) As Double
在過程之中同樣的聲明使用 Dim：Dim Counters (14) As IntegerDim Sums (20) As Double第一個聲明建立了一個有 15 個元素的數組，其索引號從 0 到 14 。第二個聲明建立了一個有 21 個元素的數組，其索引號從 0 到 20 。缺省的下界為 0。
為了規定下界，用關鍵字 To 顯式提供下界（為 Long 數據類型）：
Dim Counters (1 To 15) As Integer
Dim Sums (100 To 120) As String
在前述聲明中，Counters 的索引值范圍從 1 到 15，而 Sums 的索引值范圍從 100 到 120。
包含其它數組的數組
有可能建立 Variant 數據類型數組，並與不同數據類型的數組共居一處。以下代碼建立兩個數組，一個包含整數，而另一個包含 字符串。然後聲明第三個 Variant 數組，並將整數和字符串數組放置其中：
Private Sub Command1_Click ()
Dim intX As Integer '聲明計數器變量。
'聲明並放置整數數組。
Dim countersA (5) As Integer
For intX = 0 To 4
countersA (intX) = 5
Next intX
'聲明並放置字符串數組。
Dim countersB (5) As String
For intX = 0 To 4
countersB (intX) = "hello"
Next intX
Dim arrX (2) As Variant '聲明擁有兩個成員的新數組。
arrX (1) = countersA () '將其它數組移居到數組。
arrX (2) = countersB ()
MsgBox arrX (1) (2) '顯示每一個數組的成員。
MsgBox arrX (2) (3)
End Sub
