Dim iB(0 To 2,0 To 2)As Integer 123 For i=0 To 2 456 For j=0 To 2 789 iB(i,i)=? Print iB(i,j); Next j print Next iDim iB(0 To 2, 0 To 2) As Integer For i = 0 To 2 For j = 0 To 2 iB(i, j) = ? Print iB(i, j); Next j print Next i 1 2 3 4 5 6 7 8 9