数组的操作有关问题

数组的操作问题
infoid=request( "id ")
if   infoid <> " "   and   IsNumeric(infoid)   then
infoid=cint(infoid)

if   isempty(session( "cart "))   or   isnull(session( "cart "))   then
dim   arrCart(1)
arrCart(0)=infoid
session( "cart ")=arrCart
else
arrCart=session( "cart ")
i=UBound(arrCart)

flag=true
For   n=0   to   i
if   arrCart(n)   =   infoid   then
flag=false
exit   for
end   if
Next

if   flag=true   then
ReDim   Preserve   arrCart(i+1)
arrCart(i)=infoid
session( "cart ")=arrCart
end   if
end   if

end   if

这是一段用session保存数组并操作的代码
是能运行的
但我对vb不熟悉感觉有些地方应该可以改进
请给点意见吧

------解决方案--------------------
学习