子过程返回数组问题 ,请帮忙看看,谢谢!
sub aa()
Dim ff() As Long
ff = fjje()
Call fjj(ff)
end sub
Public Function fjje() As Long()
Dim acb(3) As Long
acb(1) = 1
fjjt = acb
End Function
Public Function fjj(ByRef dbd As Long)
MsgBox dbd(1)
End Function
在Call fjj(ff)时,报ff的 ByRef 参数类型不符
请问这是为什么?
[解决办法]
Sub aa()
Dim ff() As Long
ff = fjje()
Call fjj(ff)
End Sub
Public Function fjje() As Long()
Dim acb(3) As Long
acb(1) = 1
fjje = acb
End Function
Public Function fjj(ByRef dbd() As Long)
MsgBox dbd(1)
End Function
