VBScript数组的问题

Question

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=200061

Answer 1

<script language=vbs>
dim a,b,i
a=split("111，222，333，444，333，222，444，333","，")
b=""
c=split(b,",")
for i=0 to ubound(a)
  if not init(a(i),c) then 
      b=b&","&a(i)
      c=split(b,",")
  end if
next
if left(b,1)="," then b=mid(b,2)
function init(x,cc)
  dim i
  init=false
  for i=0 to ubound(cc)
   if x=cc(i) then 
     init=true
     exit for
   end if
  next
end function
msgbox b
</script>