关于VB调用MATLAB

yb861215

我在VB调用MATLAB的M文件时，其中的函数包括一个矩阵参数，那在VB下如何设置这个矩阵参数呢，数组好像不行，我用了MMTRAIX VB，具体代码如下：
Public jisuan As ccfx.ccfx
Private Sub Command1_Click()
Set jisuan = New ccfx.ccfx
Dim lamda, W, CI, CR, A As Variant
If jisuan Is Nothing Then Exit Sub
On Error GoTo Handle_error
A = zeros(3, 3)
A(1, 1) = 1
A(1, 2) = 7
A(1, 3) = 9
A(2, 1) = 1 / 7
A(2, 2) = 1
A(2, 3) = 5
A(3, 1) = 1 / 9
A(3, 2) = 1 / 5
A(3, 3) = 1
Call jisuan.ccfx(4, lamda, W, CI, CR, A())
Handle_error:
   MsgBox (Err.Description)
End Sub
老是出现下标越界的错误，请高手指点下