使用动态数组 如sub command_click() dim y() as long dim l as long , i as long l=fff(y) for i=0 to l print y(i) next end sub function fff(ly() as long) as long dim j as long redim ly(9) for j=0 to 9 ly(j)=j next fff=j end function 临时写的,没测试,大致过程就这样了。
Variant 或者 后面 加括号
public function abc(a() as long) as longend function
'如果返回值也是数组就: public function abc(a() as long) as long() dim tempa() as long abc=tempa end function
dim y() as long
dim l as long , i as long
l=fff(y)
for i=0 to l
print y(i)
next
end sub
function fff(ly() as long) as long
dim j as long
redim ly(9)
for j=0 to 9
ly(j)=j
next
fff=j
end function
临时写的,没测试,大致过程就这样了。
public function abc(a() as long) as long()
dim tempa() as long
abc=tempa
end function