|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
M文件如下
function [a b c d]=excise(f,g)
a=f+g;
b=f-g;
c=f.*g;
d=shang(b,c);
function d=shang(b,c)
d=b./c;
用com builder编译成com组件后,名为test,在VB中调用,VB程序如下
Private Sub Form_Activate()
Dim a(5) As Variant
Dim b(5) As Variant
Dim c(5) As Variant
Dim d(5) As Variant
Dim thematlab As testclass
Set thematlab = New testclass
f = Array(8.2, 53, 4, 23.5, 24)
g = Array(4.3, 6.4, 55, 456.6, 9.56)
Call thematlab.excise(4, a, b, c, d, f, g)
End Sub
运行出错,提示"对象 'excise' 的方法 ‘Itestclass’ 失败",该程序在参数 f 和 g 不是数组时可以运行出结果。请问是什么原因,怎么改?
谢谢!
[ 本帖最后由 jianwang 于 2006-9-12 17:00 编辑 ] |
|