先在窗体加入2个RichTextBox控件和2个Command按钮控件。
'***********************************************************
Dim N As Integer
Dim arry(99,99) As Integer'N要满足2<=N<=100，N=1就1个元素，没有意义。
  
'还有数组的下标是从0开始的。
'***************以上在通用区声明****************************
Private Sub InputArry_Click()
N = Int(InputBox("请输入N", "输入框"))
RichTextBox1。
  Text = ""
Dim i As Integer, j As Integer, temp As Integer
For i = 0 To N-1'用户输入n阶矩阵
For j = 0 To N-1
arry（i, j) = Int(InputBox("请输入矩阵第(" + Str(i) + "," + Str(j) + ")个元素", "输入框"))
RichTextBox1。
  Text = RichTextBox1。Text +  Format(Str(arry(i, j)), "000") + "  "  '最好输入的数在3位以内，美观，呵呵
Next j
RichTextBox1。Text = RichTextBox1。
  Text + vbCrlf
Next i
End Sub
Private Sub ChangeArry_Click()
Dim i As Integer, j As Integer, temp As Integer
For i = 0 To N-1
For j = 0 To N-1
RichTextBox2。
  Text = RichTextBox2。Text + Format(Str(arry(j, i)), "000") + "  "
Next j
RichTextBox2。Text = RichTextBox2。Text + vbCrlf
Next i
End Sub。