多维数组的问题.

代码如下：
sub inout_init()  
   dim stritem as string(,)={{"全部"," "},{"北京","0"},{"上海","1"}}  
   dim i as integer  
   for i=0 to stritem.length-1  
      dim item1 as new listitem  
      item1.text=stritem(i,0)  
      item1.value=stritem(i,1) 
      buysell.items.add(item1)  
   next  
end sub 但运行时提示错误：异常详细信息: System.IndexOutOfRangeException: 索引超出了数组界限。 源错误:  item1.text=stritem(i,0) 不知为什么，请大家指教！