'***************
'初始化一个2D 数组
dim avnt2DArray,avntTemp
redim avnt2DArray(100)
dim lngLoop
for lngLoop=0 to ubound(avntArrayMain)
'增加代码初始化一维数组,任意指定维数
redim avnt2DArray(lngLoop)
'。。。。。。这里放置初始化数据的代码
'...........
'将一维数组放到主数组
avntArrayMain(lngLoop)=avntTemp
next
'***************
得到二维数组的元素
'得到第N行(返回一个数组)
dim avntLine,lngWhichLine
avntLine=avnt2DArray(lngWhichLine)
'得到第X行第Y列的元素
dim vntElement,lngWhichCol
vntElement=avnt2DArray(lngWhichLine)(lngWhichCol)
'***************
'***********************************************************
'*希望能够对你有所帮助!
'***********************************************************