Dim a as single, B As Single,j As Integer
For j = 0 To 点数 - 2
a = a + (fengbi(j, 0) * fengbi(j + 1, 1) - fengbi(j + 1, 0) * fengbi(j, 1))
Next
B = a + (fengbi(i - 1, 0) * fengbi(0, 1) - fengbi(0, 0) * fengbi(i - 1, 1))
fengbi_area = Abs(B) / 2 就是面积啦
周长只需计算点点距离,然后相加就ok