问vb回调函数中能否将数组作为传递参数？

是关于非线性最小二乘拟合的问题

在vc的dll中，我这样用

int __stdcall NonLinearFit (double x[], double y[], double z[], int n, ModelFun *modelFunction, double coef[], int ncoef, double *MSE)；

typedef double CVICALLBACK ModelFun(double x, double *coef, int ncoef);

在vb公共模块中：

Public Declare Function NonLinearFit Lib "LinkVC.dll" (x As Double, y As Double, z As Double, ByVal n As Long, lpFunc As Any, a As Double, ByVal nCoef As Long, mse As Double) As Long

Public Function NLFitFunc(ByVal x As Double, a() As Double, ByVal nCoef As Long) As Double

Dim y As Double

'ReDim a(1 To nCoef) As Double

y = a(0) * Exp(x) + a(1) * Exp(-x)

NLFitFunc = y

End Function

vb窗体中：

Private Sub Command6_Click()

Dim x(1 To 20) As Double, y(1 To 20) As Double, z(1 To 20) As Double

Dim nCoef As Long, n As Long

Dim a(1 To 2) As Double, mse As Double

On Error Resume Next

n = 20

nCoef = 2

For i = 1 To n

x(i) = i

y(i) = 1# * Exp(x(i)) + 2# * Exp(-x(i)) + 0.1 * Rnd

Next i

a(1) = 0.9

a(2) = 1.85

status = NonLinearFit(x(1), y(1), z(1), n, AddressOf NLFitFunc, a(1), nCoef, mse)

End Sub

不知怎么的，就是出问题