Dim matlab As Object
Dim mimag() As Double
Dim a11(1 TO 1) As Double
Dim a21(1 TO 1) As Double
Dim a31(1 TO 1) As Double
Dim a41(1 TO 1) As Double
Dim a51(1 TO 1) As Double
Dim a61(1 TO 1) As Double
Dim a71(1 TO 1) As Double
Dim a81(1 TO 1) As Double
Dim a91(1 TO 1) As Double
Dim a101(1 TO 1) As Double
Private Sub Command1_Click()

a1(1) = Val(Text1.Text)
a2(1)= Val(Text2.Text)
a3(1) = Val(Text3.Text)
a4(1)= Val(Text4.Text)
a5(1)= Val(Text5.Text)
a6(1)= Val(Text6.Text)
a7(1) = Val(Text7.Text)
a8(1) = Val(Text8.Text)
a9(1)= Val(Text9.Text)
a10(1) = Val(Text10.Text)
Set matlab = CreateObject("matlab.application")
Call matlab.PutFullMatrix("a1", "base", a11, mimag)
Call matlab.PutFullMatrix("a2", "base", a21, mimag)
Call matlab.PutFullMatrix("a3", "base", a31, mimag)
Call matlab.PutFullMatrix("a4", "base", a41, mimag)
Call matlab.PutFullMatrix("a5", "base", a51, mimag)
Call matlab.PutFullMatrix("a6", "base", a61, mimag)
Call matlab.PutFullMatrix("a7", "base", a71, mimag)
Call matlab.PutFullMatrix("a8", "base", a81, mimag)
Call matlab.PutFullMatrix("a9", "base", a91, mimag)
Call matlab.PutFullMatrix("a10", "base", a101, mimag)
matlab.execute("yuce= net_gonge(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10)")
Call matlab.GetFullMatrix("yuce", "base", y11, mimag)
text12.text = Str(y11(1))
End Sub
我在matlab里编写了含有十个参数a1，a2……a10的函数的m文件，想通过vb界面输入参数调用这个m文件，可是总是出错，错误出在 inappropriate input arrarysize，到底哪里错了