简单的VB函数可计算两点之间的距离

最新推荐文章于 2023-03-25 00:56:18 发布

cxygs5788

最新推荐文章于 2023-03-25 00:56:18 发布

阅读量1.6k

点赞数 1

本文介绍了一个用Visual Basic编写的简单函数，用于计算二维平面上两点之间的距离。通过使用点的X和Y坐标，该函数应用勾股定理来确定两点间的直线距离。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Function DistanceBetween(ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single) As Single
  ' Calculate the distance between two points, given their X/Y coordinates. 
  ' The short version...
  DistanceBetween = Sqr((Abs(X2 - X1) ^ 2) + (Abs(Y2 - Y1) ^ 2)) 
  ' The longer version, to illustrate how it works...
  Dim Horizontal As Single, Vertical As Single
  Horizontal = Abs(X2 - X1)
  Vertical = Abs(Y2 - Y1)
  DistanceBetween = Sqr((Horizontal * Horizontal) + (Vertical * Vertical))
End Function

From: https://bytes.com/topic/visual-basic/insights/666086-simple-vb-function-calculate-distance-between-two-points