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，但打印时并不是一个矩阵，而是以长列数字，请问怎么才能打印成矩阵呢？谢谢
  
 

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
   Print
Next i
'你都说了是简单的问题，还要问么？出考试题？

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

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

........
 Print a(i, j);  '这里红色的分号你加上了吗？
  Next j

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

没关系的，以后细心点儿，再不行，把别人回复给你的语句复制过去

有时候，一个空格，就是一个问题:  "" 和 " "是不一样的

有时间多巩固一下基础语法

还有，哪种编程语言的语句最后一个字符会是冒号呢？至少我没遇上

，呵呵，受教了。