vbscript 数组在函数中传递

<script. language="vbs"> 
function array_concat(a1,a2)
 dim i,j,length,a()
 length=ubound(a1)-lbound(a1)+ubound(a2)-lbound(a2)+2
 redim a(length)
 
 
 for i=lbound(a1) to ubound(a1)
  a(i)=a1(i)
  next
  
  for j=lbound(a2) to ubound(a2)
  a(i)=a2(j)
  i=i+1
  next
 
 array_concat=a 
end function

dim a,b,c
msgbox 1
a=Array(1,2,3)
b=Array(4,5,6)
c=array_concat(a,b)

msgbox Join(c,",")
</script>