我有一个数组A是这样的，A（1，2，3，4，5，6，7，8，9)
我想要设一个数组B，他的值是A数组的0，1，3，5位。也就是等于B（0，1，3，5）
这个赋值应该怎么写？
Dim B（4）
B=A(0,1,3,5)
我是这样写的，语法好像不对。
第1个回答 2011-01-09
你是不是想隔一个赋值一个？
参考一下：
Sub saa()
Dim i As Integer
Dim j As Integer
Dim b() As String
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
maxa = UBound(a)
ReDim b(maxa / 2)
j = 0
For i = 0 To maxa
b(j) = a(i)
MsgBox (b(j))
i = i + 1
Next i
End Sub
参考一下：
Sub saa()
Dim i As Integer
Dim j As Integer
Dim b() As String
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
maxa = UBound(a)
ReDim b(maxa / 2)
j = 0
For i = 0 To maxa
b(j) = a(i)
MsgBox (b(j))
i = i + 1
Next i
End Sub
第2个回答 2011-01-09
是语法问题吗？
现在A有9个元素，B有4个，你是想让B的第1,2,3,4个元素的值分别等于A的第1,3,5,7个元素的值吗？
B(0)=A(0)
B(1)=A(2)
B(2)=A(4)
B(3)=A(6)本回答被提问者采纳
现在A有9个元素，B有4个，你是想让B的第1,2,3,4个元素的值分别等于A的第1,3,5,7个元素的值吗？
B(0)=A(0)
B(1)=A(2)
B(2)=A(4)
B(3)=A(6)本回答被提问者采纳
第3个回答 2011-01-09
Dim B（4）
b(0)=a(0)
b(1)=a(1)
b(2)=a(3)
b(3)=a(5)
b(0)=a(0)
b(1)=a(1)
b(2)=a(3)
b(3)=a(5)
