VB测量程序核心模块 Function Fafangcheng(canshu() As Double, P() As Double, ByVal m As Integer, N As Integer, L() As Double) Dim zhuanchengB() As Double Dim zhuanchengB1(