在VBA中，可以使用Dim語句定義數組，并使用賦值語句將值賦給數組的元素。以下是定義和賦值數組的示例代碼：
Dim myArray(1 To 5) As Integer ' 定義一個包含5個整數的數組
myArray(1) = 10 ' 給數組的第一個元素賦值為10
myArray(2) = 20 ' 給數組的第二個元素賦值為20
myArray(3) = 30 ' 給數組的第三個元素賦值為30
' 使用循環給數組的剩余元素賦值
For i = 4 To 5
myArray(i) = i * 10
Next i
在上面的示例中，使用Dim語句定義了一個包含5個整數的數組myArray。然后，通過索引（從1到5）分別給數組的元素賦值。最后，通過循環給數組的剩余元素賦值。
