vbs两个二维数组之间怎么相互赋值？

两个二维数组a和b，如何把a数组的某个元素给b数组避免出现下标越界的情况？

判断一下下标是否越界再赋值

Dim a(1 To 2, 1 To 3) As Variant
a(1, 1) = "a"
a(1, 2) = "b"
a(1, 3) = "c"

Dim b(1 To 1, 1 To 3) As Variant
b(1, 1) = a(1, 1)