急问：各位大虾！！！

Question

我想做一个函数：例如有三个点P1(X1,Y1),P2(X2,Y2),P3(X3,Y3)
当用2个点时，函数形式为：f=(X-X1)^2+(Y-Y1)^2+(X-X2)^2+(Y-Y2)^2
当用3个点时，函数形式为：f=(X-X1)^2+(Y-Y1)^2+(X-X2)^2+(Y-Y2)^2+（X-X3)^2+(Y-Y3)^2
这个函数怎么来实现阿？？？

Answer 1

那就定义一个点的函数，多次调用
function Fun(x1,y1) as single
  fun=(x-x1)^2+(y-y1)^2
end function然后两个点的结果=fun(x1,y1)+fun(x2,y2)
三个点的结果=fun(x1,y1)+fun(x2,y2)+fun(x3,y3)

Answer 2

写一个含数,参数传数组,里面用for循环相加

Answer 3

Function getNum(arrX() As Double, arrY() As Double) As Double
Dim f As Double
f = 0
Dim x, y As Double
For i = 0 To UBound(arrX)
    f = f + (x - arrX(i)) ^ 2 + (y - arrY(i)) ^ 2NextgetNum = fEnd Function