//构建多维数组
//通过下标号填内容到多维数组,不通过push的方法
Dim arrElement =["北京","天津","上海"]
Dim regionalArr =["朝阳区","东城区"]
TracePrint(UBound(arrElement)) //最大下标为2
arr_Rsystem = Array([UBound(arrElement)+1,1],"") //构建了3行1列的空的二维数组
TracePrint(arr_Rsystem)
for a =0 to UBound(arrElement)
for i =0 to Ubound(regionalArr)
arr_Rsystem[a][i] =regionalArr[i]
next
next
TracePrint arr_Rsystem
返回: