在VBA中，可以使用Dim語句來定義數組，并使用賦值語句將值賦給數組的元素。以下是一個示例：
Dim arr(1 To 5) As Integer '定義一個包含5個元素的整數數組
arr(1) = 10 '給第一個元素賦值為10
arr(2) = 20 '給第二個元素賦值為20
arr(3) = 30 '給第三個元素賦值為30
arr(4) = 40 '給第四個元素賦值為40
arr(5) = 50 '給第五個元素賦值為50
如果數組的索引是從0開始的，可以使用以下語句：
Dim arr(0 To 4) As Integer '定義一個包含5個元素的整數數組
arr(0) = 10 '給第一個元素賦值為10
arr(1) = 20 '給第二個元素賦值為20
arr(2) = 30 '給第三個元素賦值為30
arr(3) = 40 '給第四個元素賦值為40
arr(4) = 50 '給第五個元素賦值為50
還可以使用數組常量來定義和賦值數組，如下所示：
Dim arr() As Integer '定義一個整數數組
arr = Array(10, 20, 30, 40, 50) '給數組賦值
在這個示例中，數組的大小會根據提供的元素個數自動確定。
