自定义函数传参数出错

立川

见图，第三列是用自定义函数“lssl”计算的， 第四列是用公式计算的。
Function lssl(x1, x2, y1, y2)
  Dim x, y
  x = (x1 - x2) * (x1 - x2)
  y = (y1 - y2) * (y1 - y2)
lssl = Application.sqrt(x + y)
End Function
这个自定义函数的计算不正确，是不是函数传参数时出了错误，请各位大神指点一二，谢谢！
自定义函数传参数出错.rar (11.61 KB, 下载次数: 10)

2021-9-23 19:35 上传

点击文件名下载附件
自定义函数传参数出错.rar

可可爹滴

Function lssl(x1, x2, y1, y2)
  Dim x, y
  x = (x1 - x2) * (x1 - x2)
  y = (y1 - y2) * (y1 - y2)
lssl = Sqr(x + y)
End Function