vb中在一个4行5列的数组中找凸点的代码，用function函数（凸点指在本行也在本列中最大的数

vb中在一个4行5列的数组中找凸点的代码，用function函数（凸点指在本行也在本列中最大的数

Dim A(4, 5) As Integer
        Dim i As Integer, j As Integer
        For j = 0 To UBound(A, 1)
            For i = 0 To UBound(A, 2)
                A(j, i) = Int(Rnd() * 10)
            Next
        Next
        Dim k As Integer, m As Integer, n As Integer
        For j = 0 To UBound(A, 1)
            m = -1
            n = -1
            For i = 0 To UBound(A, 2)
                If A(j, i) > m Then
                    m = A(j, i)
                    n = i
                End If
            Next
            For k = 0 To UBound(A, 1)
                If A(k, n) > m Then Exit For
            Next
            If k > UBound(A, 1) Then TextBox6.Text = TextBox6.Text & "凸点:" & "A(" & j & "," & n & ")" & vbCrLf
        Next

病情分析： 你好支气管炎是在机体抵抗力降低的情况下，由细菌、病毒感染和物理、化学刺激，或过敏反应引起的气管和支气管的急性炎症。 指导意见： 全身症状如发烧、头痛明显时应适当休息，多饮水，以利退烧、排泄毒物，同时应注意保暖。细菌感染，应适当加抗菌药物，如头孢类、阿奇霉素等。避免食用辛辣刺激性食物，不宜过酸过咸，有过敏史者，忌食海腥发物及致敏性食物。保持居室空气清新，忌烟戒酒，避免烟尘、异味及油烟等理化因素刺激。预防感冒，加强耐寒锻炼，缓解期要注意劳逸适度，适当锻炼身体以增强体质。