'Points¸ñʽ£º
'Points£¨0£©£ºX
'Points£¨1£©£ºY
'Points£¨2£©£ºH
'...¹«Ê½£ºArea=1/2*(x1*y2-x2*y1+x2*y3-x3*y2+... ...+xn*x1-x1*yn)
Private Function Area(Points() As Double) As Double '¼ÆËãPoints()ÇøÓòÃæ»ý
Dim L As Long
L = UBound(Points) - 3
Dim T1 As Long
Dim S As Double
S = 0
For T1 = 0 To L Step 3
S = S + Points(T1) * Points(T1 + 4) - Points(T1 + 1) * Points(T1 + 3)
Next T1
S = S + Points(T1) * Points(1) - Points(T1 + 1) * Points(0)
Area = Abs(S / 2)
End Function