Dim a(1 To 10, 1 To 10) As Integer
Dim i, j As Integer

For i = 1 To 10
  For j = 1 To 10
    If i = j Or i + j = 11 Then      '两个式子有一个成立的则执行一下语句：对角线上是1，其余为0
      a(i, j) = 1
    Else
      a(i, j) = 0
    End If
  Print a(i, j)
  Next j
Next i


这是打印一个10*10的矩阵，对角线上都为1，其余元素都为0，但打印时并不是一个矩阵，而是以长列数字，请问怎么才能打印成矩阵呢？谢谢
  
 

呵呵，简单是辩证的看的。
谢谢！

这位朋友，你运行了没？问题并没有解决啊？

分号？我晕，我看成是冒号了。呵呵，谢谢指点！

，呵呵，受教了。