求助，怎么获取任意封闭图形所占面积百分比

方法很多。
主要看你这个“封闭图形”是怎么来的
你已经掌握了什么数据
如果你只有一张jpg或者bmp图片，那就不要追求效率，

我想的蠢方法是背景色和前景色，纯色。

设x（i）、y（i）一一对应，且按线型顺序排好，一共有n个点，i从1到n。
s=（x（1）-x（n））*（y（1）+y（n））
for i=2 to n
s=s+（x（i）-x（i-1)））*（y（i）+y（i-1））
next i
s=abs（s/2）
原理很简单，就是从一段斜线两端向X轴做垂线，斜线、垂线、X轴形成直角梯形。两垂线为上下底，X的差值为高，梯形面积面积=（x2-x1）*（y1+y2）/2.
数学原理上有两点特别提示：①x2小于x1，面积记为负值。②斜线跨越X轴，y1和y2不同号。这两种情况都不影响结果。
编程上有四点，要注意：
①s的初值，实际是闭合轮廓线。
②轮廓的每段构成梯形总和时，会自动扣除或弥补对面线段的影响（实际就是上面说的学术原理的问题）。
③因为轮廓线的方向问题，可能导致最终结果为负值，所以最后取绝对值。
④梯形面积的÷2，放在最后一次计算，没有放在循环内分别计算。

辛普森积分qwq

蒙特卡洛

找每个点的颜色，比如500*400个点，20万个点，算符合个数除以总个数。应该不难。。

曲线轨迹坐标存到a(),b()里了，判断是否封闭，总是返回TRUE值
Private Function chk(e() As Variant, l() As Variant) As Boolean
Dim f, k As Variant
chk = False
f = 0
k = 0
For f = 0 To UBound(e()) - 2
For k = f + 1 To UBound(e()) - 1
If e(f) - e(k) = 0 And l(f) - l(k) = 0 Then
chk = True
Exit For
Else
chk = False
End If
Next
Next
End Function
Private Sub Command1_Click()
If chk(a, b) = True Then
Dim m, n As Variant
Dim s As Variant
s = 0
For m = 2 To UBound(a())
s = s + (a(m) - a(m - 1)) * (b(m) + b(m - 1))
Next
Print s
Else
MsgBox "不是闭合曲线"
End If
End Sub