问题补充说明:For i = 1 To 3 For j = 1 To 3d(i, j) = Array(1, 2, 3, 1, 2, 3, 1, 2, 3) NextNext这样给二维数组赋值怎么老不对
PrivateSubCommand1_Click()
Dimd
d=Array(Array(1,2,3),Array(4,5,6),Array(7,8,9))
DimiAsInteger
DimjAsInteger
Fori=0To2
Forj=0To2
Printd(i)(j)
Nextj
Nexti
EndSub