Question

vb 编写一个程序，将一个矩阵转置，即行列元素对换。

Answer 1

Private Sub Command1_Click()
Dim a() As Integer, b() As Integer
n = InputBox("请输入阶数n：")
ReDim a(n, n)
For i = 1 To n
For j = 1 To n
a(i, j) = InputBox("请输入a(" & i & "," & j & ")")
Print a(i, j);
Next j
Print
Next i
Print
ReDim b(n, n)
Print "转置后："
For i = 1 To n
For j = 1 To n
b(j, i) = a(i, j)
Next j
Next i
For i = 1 To n
For j = 1 To n
Print b(i, j);
Next j
Print
Next i
End Sub

Answer 2

Dim a(5, 6) As Integer
Dim b(6, 5) As Integer
Dim tmp As Integer
For nnn = 0 To 5
For mmm = 0 To 6
b(mmm, nnn) = a(nnn, mmm)
Next
Next