Question

VB编程：输入整数n，并输入n×n矩阵的各个元素值，输出最大值及其行、列。

Answer 1

 Dim str As String = ""
        Dim a(9, 9), i, j, temp As Integer
        For i = 1 To 9
            For j = 1 To 9
                a(i, j) = Int(Rnd() * 90 + 10)
                str = str & a(i, j).ToString & " "
            Next
            str = str & vbCrLf
        Next
        str = str & vbCrLf
        temp = a(1, 1)
        For i = 1 To 9
            For j = 1 To 9
                If a(i, j) < temp Then
                    temp = a(i, j)
                End If
            Next
        Next

        str = str & temp.ToString
        TextBox6.Text = str