vb中如何把一个数组中小标为奇数像分离出来形成另一个数组

假定a()数组共有n个元素，则定义一个b数组，下标从1至n\2+1
那么：
j=0
for i=1 to n
if i mod 2=1 then
j=j+1
b(j)=a(i)
end if
next

就能产生一个新数组b(),里面的元素的值为b(1)=a(1),b(2)=a(3),b(3)=a(5)......

一个完整例子：

Private Sub Command1_Click()
Dim a(11) As Integer, b() As Integer
Dim i As Integer
ReDim b((UBound(a) - 1) \ 2)
For i = 0 To UBound(a) '数组a初始赋值，这里仅为举例
a(i) = i
Next
For i = 1 To UBound(a) Step 2
b(i \ 2) = a(i)
Next
End Sub