a=array(1*b,2*b)往下不用说了吧

每个都乘以

数组是一个元素集,而不是一个数值.无法进行运算的.

dim i=0
do
a = Array(1, 3, 5, 7)
b = a(i)*2
TracePrint b
i=i+1
loop

用for循环
从数组取出每个数值，然后乘以你要乘的值，然后这些值你合成一个数组，最后替换掉原来那个数组就OK了

a = Array(1, 3, 5, 7)
b=a
For i=0 To UBound(a)
TracePrint a(i)
b(i)=2*a(i)
Next
TracePrint b(1)
给你，应该符合你的要求