请教一个简单的算法

Question

一个数组内有两种数，将它们区分开来分别，放到另外的俩个数组内
例如：数组内有1，2，1，1，2，1，2
将1，1，1，1放入一个新的数组。2，2，2放入另一个数组？请用语句实现：）

Answer 1

dim i as integer
dim iA as integer
dim iB as integer
dim NewA() as integer
dim NewB() as integer
if ubound(oldArray)<1 then exit sub
iA=1
iB=0
redim NewA(iA)
NewA(iA)=oldArray(1)
for i=2 to ubound(oldArray)
    if oldArray(1)=oldArray(i) then
        iA=iA+1
        redim NewA(iA)
        NewA(iA)=oldArray(i)
    else
        iB=iB+1
        redim NewB(iB)
        NewB(iB)=oldArray(i)
    end if
next

Answer 2

dim i as integer
dim intCountNum1 as integer
dim intCountNum2 as integer
dim argNum1() as integer
dim argNum2() as integerfor i=arg().lbound to arg().ubound
if arg(i)=intNum1 then 
intCountNum1=intCountNum1+1
elseif arg(i)=intNum1 then
intCountNum2=intCountNum2+1
end if
next iredim argNum1(intCountNum1)
for i=0 to argNum1.Ubound
argnum1(i)=intNum1
next redim argNum2(intCountNum2)
for i=0 to argNum2.Ubound
argnum2(i)=intNum2
next 

Answer 3

hehe这种小问题自己想想，试试，收获远远大于比别人告诉你答案

Answer 4

forever_chang(世纪初的魔术师) 的方法不错，不过存在笔误。dim i as integer
dim intCountNum1 as integer
dim intCountNum2 as integer
dim intNum1      as integer
dim intNum2      as integer
dim argNum1() as integer
dim argNum2() as integer
'先取出intNum1 和 intNum2
i=arg().lbound
intNum1=arg(i)
for i=arg().lbound to arg().ubound
if arg(i)<>intNum1 then 
intNum2=arg(2)
exit for
end if
next ifor i=arg().lbound to arg().ubound
if arg(i)=intNum1 then 
intCountNum1=intCountNum1+1
elseif arg(i)=intNum2 then
intCountNum2=intCountNum2+1
end if
next iredim argNum1(intCountNum1)
for i=0 to argNum1.Ubound
argnum1(i)=intNum1
next redim argNum2(intCountNum2)
for i=0 to argNum2.Ubound
argnum2(i)=intNum2
next 

Answer 5

一个数组内有两种数，将它们区分开来分别，放到另外的俩个数组内
例如：数组内有1，2，1，1，2，1，2
将1，1，1，1放入一个新的数组。2，2，2放入另一个数组？请用语句实现：）
  
       dim i as integer
       dim j as integer
       dim k as integer
       j=0 
        k=0
       for i=lbound(arrOringe) to ubound(arroringe)
             select case arroringe(i)
              case 1
                     arrA(j)=i
                     j=j+1
              case 2
                     arrB(k)=i
                     k=k+1             end select
       next i