function returnArray() as integer() dim tmp(5) as integer dim i as integer for i=0 to 5 tmp(i)=i next i returnArray=tmp end function
怎么用函数传递一个数组我不说了 返回一个数组:Variant型变量可有储存数组,拿他做返回值 函数: Private Function aa() Dim bb ReDim bb(2) bb(0)=1 aa = bb End Function 然后在要用的地方,象这样检查一下 Dim bb bb = aa MsgBox UBound(bb) MsgBox bb(0)我的建议还是传入两个数组,一个是输入的,另一个输出,分别给予类型,那样容易检查错误.
谢谢上面的两位大侠,就是说我现在一个二维数组有很多数据,我想传进去进行求逆,然后把他求出的结果,也是很多数据,用来计算别的问题,能否详解一下,先谢谢了 function qiuni(n() as single) as singleend function中间的调用怎么实现呀?
dim tmp(5) as integer
dim i as integer
for i=0 to 5
tmp(i)=i
next i
returnArray=tmp
end function
返回一个数组:Variant型变量可有储存数组,拿他做返回值
函数:
Private Function aa()
Dim bb
ReDim bb(2)
bb(0)=1
aa = bb
End Function
然后在要用的地方,象这样检查一下
Dim bb
bb = aa
MsgBox UBound(bb)
MsgBox bb(0)我的建议还是传入两个数组,一个是输入的,另一个输出,分别给予类型,那样容易检查错误.
function qiuni(n() as single) as singleend function中间的调用怎么实现呀?