Uibot 构建多维数组

//构建多维数组
//通过下标号填内容到多维数组，不通过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 

返回：