Imports System
Module DistanceBetweenNumbers
' Function that returns the distance between two decimal numbers
Function DistanceBetween(a As Double, b As Double) As Double
' The distance is the absolute value of the difference
Return Math.Abs(a - b)
End Function
Sub Main()
' Test values
Dim x1 As Double = 100
Dim y1 As Double = 45
Dim x2 As Double = 100
Dim y2 As Double = -15
Dim x3 As Double = -100
Dim y3 As Double = -125
Dim x4 As Double = -600
Dim y4 As Double = 100
' Print results
Console.WriteLine("Distance between " & x1 & " and " & y1 & " = " & DistanceBetween(x1, y1))
Console.WriteLine("Distance between " & x2 & " and " & y2 & " = " & DistanceBetween(x2, y2))
Console.WriteLine("Distance between " & x3 & " and " & y3 & " = " & DistanceBetween(x3, y3))
Console.WriteLine("Distance between " & x4 & " and " & y4 & " = " & DistanceBetween(x4, y4))
End Sub
End Module
' run:
'
' Distance between 100 and 45 = 55
' Distance between 100 and -15 = 115
' Distance between -100 and -125 = 25
' Distance between -600 and 100 = 700
'
