二维数组中的凸点，输出凸点的下标怎么实现？

Question

计算二维数组中的凸点，凸点是指一个元素，比周围8个数字都要大的点，输出凸点的下标怎么实现？

Answer 1

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