用数组做参数的例子：

   
        
   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    "显示原始数组"    &    "
"   
   show    aa   
   document.write    "添加一条并显示"    &    "
"   
   append    aa,    "羊皮兔"   
   show    aa   
   document.write    "添加一条并显示"    &    "
"   
   append    aa,"狼皮兔"   
   show    aa   
   document.write    "排序并显示"    &    "
"   
   sort    aa   
   show    aa   
   document.write    "删除一条并显示"    &    "
"   
   remove    aa,"狼皮兔"   
   show    aa   
    
   sub show(arr)   
   ’显示数组的全部内容   
   for each    a    in    arr   
   document.write    a    &    "
"   
   next   
   document.write    a    &    "

---

"   
   end sub