在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）分别给数组的元素赋值。最后，通过循环给数组的剩余元素赋值。
