matlab ubound,关于VB调用MATLAB函数，出现类型不匹配

编程基础 • 2025-01-13 18:21 • 阅读 19

我在matlab中建立了一个函数

function dblRho=FunSatuVaporRho(dblt,dblp)

dblt0=[0,0,0,0,0,0,0,0,0,0,...

10,10,10,10,10,10,10,10,10,10];

dblp0=[610.758,656.653,705.49,757.466,812.873,871.811,934.574,1001.16,1071.96,1147.18,...

1227.01,1311.64,1401.37,1496.49,1597.31,1703.91,1816.78,1936.127,2062.34,2195.71];

dblRho0=[0.004847,0.005192,0.005558,0.005946,0.006358,0.006795,0.007258,0.007748,0.008267,0.008816,...

0.009396,0.01001,0.01066,0.01134,0.01206,0.01282,0.01363,0.01447,0.01536,0.01630];

dblRho=griddata(dblt0,dblp0,dblRho0,dblt,dblp, 'v4 ');

目的是实现插值计算，然后用MATCOM生成DLL文件。看MATCOM帮助说要在VB中调用这个函数必须用到生成的DLL文件，BAS文件和cls文件，bas文件是用来声明DLL，cls是个函数，如下：

Public Function FunSatuVaporRho(ParamArray v())

' var input 1 out

Dim l As Long, u As Long, s As Long, i As Long

l = LBound(v)

u = UBound(v)

s = u - l + 1

Dim prhs_mat(1 To 64)

Dim prhs(1 To 64) As Long

For i = 1 To s

prhs_mat(i) = ToMatrix(v(i - 1 + l))

prhs(i) = prhs_mat(i).Handle

Dim plhs(1 To 1) As Long

Dim e As Long, emsg As String * 1024

e = FunSatuVaporRho_v(emsg, 1, plhs(1), u - l + 1, prhs(1))

Set FunSatuVaporRho = New Matrix

FunSatuVaporRho.Handle = plhs(1)

If e > 0 Then

emsg = Left$(emsg, e)

Err.Raise 999, , emsg

End If

End Function

估计就是在VB中调用这个函数，现在问题是，在MATLab中编的函数是通过输入两个值来实现二维的插值计算，而现在这个函数的参数是(ParamArray v())，我在VB中调用：

dim b as double

b=FunSatuVaporRho(12,1233)

vb提示类型不匹配，，请大侠告知这个函数的输入参数得怎么输呀？要用到数组吗？