欲显示如下数组：                                 但是代码的结果是：
           1   0    0                            1   0    0    0   1    0    0   0    1
           0   1    0
           0   0    1

请问如何修改才能变成想要的结果
代码如下：

 private sub form_click( )
   dim a(2,2)
   for i = 1 to 2
     for j = 1 to 2
       if i = j then
         a(i,j) = 1
       else
         a(i,j) = 0
       end if
          next j
   next i
  for each b in a
    print b;
  next b
  end sub

private sub form_click( )
   dim a(2,2)
   for i = 1 to 2
     for j = 1 to 2
       if i = j then
         a(i,j) = 1
       else
         a(i,j) = 0
       end if
            print a(i,j);
          next j
         print
   next i

'  for each b in a
'    print b;
'  next b
  end sub

谢谢了 ， 我试了一下可以了，    但是在next j后的 print 只是打印一个空格 为什么会有跳行的功能呢？

[[it] 本帖最后由 菜鸟新上路 于 2008-10-27 14:04 编辑 [/it]]