[求助]看看这个程序怎么了？

zzz8662

清各位大虾看看下面的程序调用错误在哪里。注意红色部分！谢谢了。 Public Sub calculate()
Dim hCount as Integer
Dim b ，xx,yy as Double
Dim x(), y(), z(), b() As Double
...................................
...................................
ReDim x(hCount), y(hCount), z(hCount) 'hCount在过程中已求出
................................
................................
b=ssa(x(), y(), z(), xx, yy, kkk) '数组传送调用,总是在这里出这样 的错误---- 编译错误； 类型不匹配：缺少数组或用户自定 义类型
.......................
End sub Public Function ssa(x() As Double, y() As Double, z() As Double, a As Double, b As Double, k As Integer) As Double
..................
.................
End Function

subtlation

Dim b ，xx,yy as Double
这句的意思是：定义b，xx为变体，yy为双精度。

zzz8662

谢谢！！！！！！调了好长时间，你一句话点破！