如何让函数返回数组？

[公亮]

定义了一个函数ABC

调用方式是ABC（变量1，变量2）

如果让函数ABC返回的是数组？这个好像不可能的
不知道大家还有没有什么好的方法！？？

[linseng129]

返回一个带分割符的字符串，然后用split分开

[iuhxq]

估计可以实现

要不换个思考方式也不错

比如返回join

[公亮]

怎么做呢？最好写个程序出来，我现在一点思路都没有了！

[公亮]

原来方法如此的简单
我太心急了
函数是可以返回数组的

[超级大笨狼]

<SCRIPT LANGUAGE="vbScript">

function ABC(x,y)
ABC=Array(x,y)
end function

alert isarray(ABC(1,2))
</SCRIPT>

[超级大笨狼]

<SCRIPT LANGUAGE="vbScript">

function ABC(x,y)
dim a()
'中间随便运算
ABC=a
end function

alert isarray(ABC(1,2))
</SCRIPT>

[超级大笨狼]

用数组做参数的例子：


<SCRIPT LANGUAGE=vbscript >

sub append( ByRef arr(),newItem)
'用于添加数组最新内容的过程
dim maxBound
maxBound = ubound(arr)
redim Preserve arr( maxBound + 1)
arr(maxBound + 1) = newItem
end sub

sub remove( ByRef arr(),oldItem)
'用于移出数组旧内容的过程
dim maxBound,old,tempArr(),i
maxBound = ubound(arr)
exits = false
for each old in arr
if old = oldItem then maxBound = maxBound -1
next

'如果不存在那么
if maxBound = ubound(arr) then exit sub

redim tempArr(maxBound)
i = 0
for each old in arr
if old <> oldItem then
tempArr(i) = old
i = i + 1
end if
next
redim arr( maxBound )
for i = 0 to maxBound
arr(i) = tempArr(i)
next
end sub

sub sort(byref arr())
'冒泡排序
dim loop1
dim loop2
dim temp
for loop1 = ubound(arr) to 0 step -1
for loop2 = 1 to loop1
if arr(loop2 - 1) > arr(loop2) then
temp = arr(loop2 - 1)
arr(loop2 - 1) = arr(loop2)
arr(loop2) = temp
end if
next
next
end sub

'下面是用来测试执行前后结果变化的

aa = array("GG兔","MM兔","BT兔")

document.write "显示原始数组" & "<br/>"
show aa
document.write "添加一条并显示" & "<br/>"
append aa, "羊皮兔"
show aa
document.write "添加一条并显示" & "<br/>"
append aa,"狼皮兔"
show aa
document.write "排序并显示" & "<br/>"
sort aa
show aa
document.write "删除一条并显示" & "<br/>"
remove aa,"狼皮兔"
show aa

sub show(arr)
'显示数组的全部内容
for each a in arr
document.write a & "<br/>"
next
document.write a & "<hr/>"
end sub

[slyly]

在函数外定义一个数组，就像定义一个公用变量一样