在VB中，動態數組可以使用ReDim語句進行定義和賦值。以下是一個示例：
Dim myArray() As Integer
ReDim myArray(4) '定義一個包含5個元素的整型數組
'給數組賦值
myArray(0) = 1
myArray(1) = 2
myArray(2) = 3
myArray(3) = 4
myArray(4) = 5
在上面的示例中，首先使用Dim語句定義了一個動態數組myArray，然后使用ReDim語句指定數組的大小為5。接著使用索引給數組的元素賦值。
需要注意的是，在使用ReDim語句重新定義數組大小時，原數組中的數據將會丟失。如果需要保留原數組中的數據，可以使用Preserve關鍵字，如下所示：
ReDim Preserve myArray(9) '重新定義數組大小為10，并保留原數組中的數據
