' Pythagorean Example

' Enter points (x1,y1) and (x2,y2).  
' Output distance between points.

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim x1, y1, x2, y2, distance As Double

        Write("Enter X1: ")
        x1 = ReadLine()
        Write("Enter Y1: ")
        y1 = ReadLine()
        Write("Enter X2: ")
        x2 = ReadLine()
        Write("Enter Y2: ")
        y2 = ReadLine()
        distance = Math.Sqrt((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
        WriteLine("Distance is " & distance.ToString("#0.000"))
        ReadLine()
    End Sub

End Module