用vb,声明一个5行5列的矩阵其元素为两位整数，由计算机随机产生。求， ①每行的最大值，并储存在一用vb,声明一个5行5列的矩阵其元素为两位整数，由计算机随机产生。求，①每行的最大值，并储存在一维数组中②主对角线上的元素之和

2019-05-30

用vb,声明一个5行5列的矩阵其元素为两位整数，由计算机随机产生。求， ①每行的最大值，并储存在一
用vb,声明一个5行5列的矩阵其元素为两位整数，由计算机随机产生。求，
①每行的最大值，并储存在一维数组中
②主对角线上的元素之和

优质解答

Dim str As String = "", temp As Integer = 0, sum As Integer = 0, x As Integer
        Dim a(5, 5), b(5) As Integer
        For i = 1 To 5
            For j = 1 To 5
                a(i, j) = Int(Rnd() * 90 + 10)
                str = str & a(i, j) & " "
            Next
            str = str & vbCrLf
        Next
        str = str & vbCrLf
        For i = 1 To 5
            sum = sum + a(i, i)
        Next
        For i = 1 To 5
            For j = 1 To 5
                For x = 1 To 5 - j
                    If a(i, x) < a(i, x + 1) Then
                        temp = a(i, x + 1)
                        a(i, x + 1) = a(i, x)
                        a(i, x) = temp
                    End If
                Next
            Next
        Next
        For i = 1 To 5
            b(i) = a(i, 1)
            str = str & b(i) & " "
        Next
        str = str & "主对角线数字和是" & sum
        TextBox6.Text = str

运行结果：

73 58 62 36 37
79 11 78 83 73
14 47 87 81 43
96 88 15 95 42
57 79 14 63 52

73 83 87 96 79

主对角线数字和是318

Dim str As String = "", temp As Integer = 0, sum As Integer = 0, x As Integer
        Dim a(5, 5), b(5) As Integer
        For i = 1 To 5
            For j = 1 To 5
                a(i, j) = Int(Rnd() * 90 + 10)
                str = str & a(i, j) & " "
            Next
            str = str & vbCrLf
        Next
        str = str & vbCrLf
        For i = 1 To 5
            sum = sum + a(i, i)
        Next
        For i = 1 To 5
            For j = 1 To 5
                For x = 1 To 5 - j
                    If a(i, x) < a(i, x + 1) Then
                        temp = a(i, x + 1)
                        a(i, x + 1) = a(i, x)
                        a(i, x) = temp
                    End If
                Next
            Next
        Next
        For i = 1 To 5
            b(i) = a(i, 1)
            str = str & b(i) & " "
        Next
        str = str & "主对角线数字和是" & sum
        TextBox6.Text = str

运行结果：

73 58 62 36 37
79 11 78 83 73
14 47 87 81 43
96 88 15 95 42
57 79 14 63 52

73 83 87 96 79

主对角线数字和是318