|
清各位大虾看看下面的程序调用错误在哪里。注意红色部分!谢谢了。 Public Sub calculate()
Dim hCount as Integer
Dim b ,xx,yy as Double
Dim x(), y(), z(), b() As Double
...................................
...................................
ReDim x(hCount), y(hCount), z(hCount) 'hCount在过程中已求出
................................
................................
b=ssa(x(), y(), z(), xx, yy, kkk) '数组传送调用,总是在这里出这样 的错误---- 编译错误; 类型不匹配:缺少数组或用户自定 义类型
.......................
End sub
Public Function ssa(x() As Double, y() As Double, z() As Double, a
As Double, b As Double, k As Integer) As Double
..................
.................
End Function |
|