Question

VB编程，应用二维数组产生随机矩阵5*5，并实现矩阵的转置。

在线等，必须是VB 不是其他语言

Answer 1

VB源程序如下：

Option Base 1

Private Sub Command1_Click()

Dim A(5, 5) As Integer, B(5, 5) As Integer

For x = 1 To 5

    For y = 1 To 5

        A(x, y) = Int(10 + Rnd * 90) '随机产生两位数的整数

        Print A(x, y); '输出

    Next

    Print

Next

Print

For x = 1 To 5

    For y = 1 To 5

        B(x, y) = A(y, x) '转置

        Print B(x, y); '输出

    Next

    Print

Next

End Sub

程序输出结果如下：

扩展资料：

VB：编写程序，实现如下规律的5*5矩阵存入数组，并输出该数组

Private Sub Command1_Click()

    Dim a(1 To 6, 1 To 6) As Integer

    For i = 1 To 5

        For j = 1 To 5

            tmp = 99

            If i < tmp Then

                tmp = i

            End If

            If j < tmp Then

                tmp = j

            End If

            If 6 - i < tmp Then

                tmp = 6 - i

            End If

            If 6 - j < tmp Then

                tmp = 6 - j

            End If

            a(i, j) = tmp

        Next j

    Next i

    For i = 1 To 5

        For j = 1 To 5

            Picture1.Print Tab(j * 5); a(i, j);

        Next j

        Picture1.Print

    Next i

End Sub

程序输出结果如下：

Answer 2

Option Base 1

Private Sub Command1_Click()

Dim A(5, 5) As Integer, B(5, 5) As Integer

For x = 1 To 5

    For y = 1 To 5

        A(x, y) = Int(10 + Rnd * 90) '随机产生两位数的整数

        Print A(x, y); '输出

    Next

    Print

Next

Print

For x = 1 To 5

    For y = 1 To 5

        B(x, y) = A(y, x) '转置

        Print B(x, y); '输出

    Next

    Print

Next

End Sub