Question

求VB代码，实现n阶方阵，n由键盘输入，界面上有一个转置的命令按钮是把矩阵元素a(i,j)与a(j,i)交换

Answer 1

Dim a() As Integer

Dim n As Integer

Private Sub Command1_Click()

    Cls

    n = InputBox("方阵阶数n:")

    Print CStr(n) & "x" & CStr(n) & "方阵"

    Randomize

    ReDim a(1 To n, 1 To n)

    Dim i As Integer, j As Integer

    For i = 1 To n

        For j = 1 To n

            a(i, j) = CInt(81 * Rnd + 10)

            Print a(i, j);

        Next

        Print

    Next

End Sub

Private Sub Command2_Click()

    Print "转置"

    Dim i As Integer, j As Integer, t As Integer

    For i = 1 To n

        For j = i To n

            If i <> j Then

                t = a(i, j)

                a(i, j) = a(j, i)

                a(j, i) = t

            End If

        Next

    Next

    For i = 1 To n

        For j = 1 To n

            Print a(i, j);

        Next

        Print

    Next

End Sub