问题补充说明：For i = 1 To 3 For j = 1 To 3d(i, j) = Array(1, 2, 3, 1, 2, 3, 1, 2, 3) NextNext这样给二维数组赋值怎么老不对
Pri来自vateSubCommand1_Click()
Dimd
d=Ar360问答ray(Array(1,2,3),Array(4,5,6),Arra推洋间钱西y(7,8,9))
DimiAsInteger
DimjAsInteger
Fori=0To2
Forj=0To2
Printd(i)(j)
Nextj
Nexti
EndSub
标签：VB
