在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) '给数组赋值
在这个示例中，数组的大小会根据提供的元素个数自动确定。