知识点：程序填空（一）
本事件过程对给定的矩阵进行转置,转置前后的矩阵分别如下面左、右两图所示。
             1   2   3                   1   4   7
             4   5   6                   2   5   8
             7   8   9                   3   6   9
Private Sub Command1_Click()
  Dim a(3, 3) As Integer,k As Integer 
  k=0
For m = 1 To 3
    For n = 1 To 3
      k =   (1)   ：a(m, n) = k
    Next n
  Next m
  For m = 1 To 3
    For n = 1 To   (2)  
      t = a(m, n): a(m, n) = a(n, m): a(n, m) = t
    Next n
  Next m
  For m = 1 To 3
    For n = 1 To 3
      Print a(m, n);
    Next n
      (3)  
  Next m
End Sub