6.0中怎样给数组赋初值

Question

定义了一个一维数组 
想要赋的初值是没有规律的，因此不能用For实现，但用Array实现有问题 
在function中 
dim a(3) as double 
a=array(1,2,3) 
会出现错误：can't assign to array 
dim a 
a=array(1,2,3) 
不会出现错误，但是此时所得的a是variant类型的
我定义这个数组的目的是为下面这个test函数提供参数 
test(a) 
其中a是以double数组为参数的，这时就会出现错误：type mismatch,array or  
user-defined type expected 
如果把test函数中的参数定义为variant类型的还是出现这个错误 
因此一直无法成功调用test函数 
VB中用数组真不方便，但我想应该还会有解决的办法的吧，高手指教 

Answer 1

用两个数组不就可以了
先定义A为variant类型，然后再转化为你想要的类型Private Sub Command1_Click()
    Dim a()
    Dim b(2) As Integer
    a = Array(0, 1, 2)
    For i = 0 To 2
        b(i) = a(i)
    Next
End Sub

Answer 2

解决了，把参数设为test(x as variant)就不会出错了