谁来教教我"方块矩阵"？算法？详细的！

Question

谁来教教我"方块矩阵"？算法？详细的！

Answer 1

例题哦
A(3,3)的数组输入时,你自己写吧?
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, a(3, 3) As Integer, s
    For i = 0 To 3
        For j = 0 To 3
            a(i, j) = InputBox("请输入数字")
            Next j
        Next i
     For i = 0 To 2
        For j = 1 To 3
            k = a(i, j)
            a(i, j) = a(j, i)
            a(j, i) = k
        Next j
    Next i
For i = 0 To 3
    s = ""
    For j = 0 To 3
    s = s & "  " & a(i, j)
    Next j
      Print s
    Next iEnd Sub