填空题：以下程序求一个矩阵a的转置矩阵。请在空白处填上适当的内容，已知矩阵，将程序补充完整。 Option Base lPriv

以下程序求一个矩阵a的转置矩阵。请在空白处填上适当的内容，已知矩阵，将程序补充完整。
Option Base l
Private Sub Form_Click()
Dim a(3，3)As Integer，b(3，3)As Integer
For i=1 T0 3
For j=1 T0 3
a(i，j)=3 *(i-1)+j
Print a(i，j)；
Next j
Print
Next i
For i=l T0 3
For j=l T0 3
____
Print b(i，j)；
Next j
Print
Next i
End Sub