module1.bas

考虑土地基情况

Attribute VB_Name = "Module1"
Function ac(mm As Double, nn As Double) As Double
ac = 0.5 * pi * (mm * nn * (mm ^ 2 + 2 * nn ^ 2 + 1) / ((mm ^ 2 + nn ^ 2) * (1 + nn ^ 2) * (mm ^ 2 + nn ^ 2 + 1) ^ 0.5) + Atn(mm / (nn * (mm ^ 2 + nn ^ 2 + 1) ^ 0.5)))
End Function