zzz8662 发表于 2004-4-7 08:49:00

[求助]看看这个程序怎么了?

清各位大虾看看下面的程序调用错误在哪里。注意红色部分!谢谢了。 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

subtlation 发表于 2004-4-7 08:56:00

Dim b ,xx,yy as Double
这句的意思是:定义b,xx为变体,yy为双精度。

zzz8662 发表于 2004-4-7 09:26:00

谢谢!!!!!!调了好长时间,你一句话点破!
页: [1]
查看完整版本: [求助]看看这个程序怎么了?