vbnet 中求两个直角坐标点的横向平距和纵向平距

在VB.NET中，可以使用以下代码来求两个直角坐标点的横向平距和纵向平距：

' 定义直角坐标点的结构体
Structure Point
    Dim X As Integer
    Dim Y As Integer
End Structure

' 计算横向平距和纵向平距的函数
Function CalculateDistance(p1 As Point, p2 As Point) As Point
    Dim distance As Point
    distance.X = Math.Abs(p1.X - p2.X)
    distance.Y = Math.Abs(p1.Y - p2.Y)
    Return distance
End Function

' 示例用法
Sub Main()
    Dim point1 As Point = New Point With {.X = 1, .Y = 2}
    Dim point2 As Point = New Point With {.X = 3, .Y = 4}
    
    Dim distance As Point = CalculateDistance(point1, point2)
    Console.WriteLine("横向平距：" & distance.X)
    Console.WriteLine("纵向平距：" & distance.Y)
End Sub

上述代码中，首先定义了一个Point结构体来表示直角坐标点，其中X和Y分别表示横坐标和纵坐标。然后，定义了一个CalculateDistance函数，该函数接受两个直角坐标点作为参数，计算它们的横向平距和纵向平距，并将结果保存在一个Point结构体中返回。

在Main函数中，我们创建了两个直角坐标点point1和point2，然后调用CalculateDistance函数计算它们的横向平距和纵向平距，并将结果输出到控制台