下标越界 问题

if isarray(session("usercart")) then
mCart=session("usercart")
else
dim mCart(6,0)
for icount =lbound(mCart,2) to ubound(mCart,2)
mCart(0,icount)=""
next
' session("usercart")=mCart

'加入购物车
if request.Form("action")="add" then
aID=request.Form("id")
aName=request.Form("name")
aCount=request.Form("quantity")
aPrice=request.Form("Price")
ppic=request.Form("ppic")
Itemflag=false
for i=lbound(mCart,2) to ubound(mCart,2)
if mCart(0,i)=aID then Itemflag=true
next
if Itemflag=false then
for i=lbound(mCart,2) to ubound(mCart,2)
if mCart(0,i)="" then
mCart(0,i)=aID
mCart(1,i)=aName
mCart(2,i)=aPrice
mCart(3,i)=aLabel1
mCart(4,i)=aLabel2
mCart(5,i)=aCount
mCart(6,i)=ppic
session("usercart")=mCart
end if
next
else
mCart(5,i)=mCart(5,i)+aCount
session("usercart")=mCart
end if
end if

提示倒数第四句越界

把这里改一下
for i=lbound(mCart,2) to ubound(mCart,2) 这里的循环已经使i达到了最大下表
if mCart(0,i)="" then
mCart(0,i)=aID
mCart(1,i)=aName
mCart(2,i)=aPrice
mCart(3,i)=aLabel1
mCart(4,i)=aLabel2
mCart(5,i)=aCount
mCart(6,i)=ppic
session("usercart")=mCart
end if
next '这里的循环已经使i达到了最大下标
else
mCart(5,i)=mCart(5,i)+aCount '这里用i的话 肯定就越界了

VB中 定义一维数组的方法有两种： dim sum(20) 默认的下标为 0 to 20 可以使用option base 1 来切换下标起始位置 另外一种 dim sum（1 to 20 ） 表示下标从 1 to 20 检查一下 循环变量 pb 和 maxtype1 的值范围吧！ sum（y）=sum（y 1）这句和可能下标越界

private sub command2_click() dim a(1 to 1000) as long n = 0 open "d:\temp1.txt" for input as #1 do while not eof(1) n = n + 1 if n<1000 then input #1, a(n) ---> 这个超出来 end if loop close #1 下标越界怎么回事？

前面dim mCart(6,0)决定I的取值范围