允许排序吗?

舍弃怎么操作? 置0可以吗?

dim a%(50)

randomize timer

for i%=1 to 50
    a%(i%)=rnd*89+10
next

copyAtoB a%(),b%()

for i%=1 to 50
    print b%(i%);
next

sub copyAtoB (x%(),y%())
for i%= 1 to ubound(x%)
    for j%=1 to i%-1
        if x%(i%)=x%(j%) then exit for
    next
    y%(j%)=x%(i%)
next
end sub

要删除数组，否则就不是舍弃；