vb.net求一组坐标中Y坐标的值最大的坐标例如一组坐标（2,5）,（3,4）,（5,10）,（12,2）求出这组坐标Y值最大的坐标并赋值给A,B.

Question

vb.net 求一组坐标中 Y坐标的值最大的 坐标
例如 一组坐标（2,5） ,（3,4） ,（5,10） ,（12,2）
求出这组坐标Y值最大的坐标 并赋值给 A ,B .

Answer 1

Dim C(3) As Point
Dim A, B As Int16
C(0)=NEW POINT(2,5)
C(1)=NEW POINT(3,4)
C(2)=NEW POINT(5,10)
C(3)=NEW POINT(12,2)
B = C(0).Y
For i = 1 To 3
If B < C(i).Y Then
B = C(i).Y
A = C(i).X
End If
Next