Dim 数组1=["a","b","c"]
Dim 数组2=[[1,2,3],[11,22,33]]
Dim 字典={}
Dim 数组=[]
For Each key1, value1 In 数组2
For Each key2, value2 In value1
字典[数组1[key2]]=value2
TracePrint(字典)
If key2=2
数组[key1]=字典
End If
Next
Next
TracePrint(数组)
这段代码最后输出的结果是[ { "a" : 11, "b" : 22, "c" : 33 }, { "a" : 11, "b" : 22, "c" : 33 } ]

怎么才能让它输出[ { "a" : 1, "b" : 2, "c" : 3 }, { "a" : 11, "b" : 22, "c" : 33 } ]