Calculando la Distancia entre A y B

En este caso tenemos los puntos A y B en el cuadrante positivo del plano cartesiano, elaboraremos el algoritmo que nos permita obtener la distancia entre A y B.

Identificadores: Distancia (D), Abcisa de A (AA), Abcisa de B (AB), Ordenador A (OA), Ordenador B (OB)

Solución

Module Module1
    Dim D As Integer
    Dim AA As Integer
    Dim AB As Integer
    Dim OA As Integer
    Dim OB As Integer

    Sub Main()
        Console.WriteLine("Ingrese el Abcisa de A")
        AA = Console.ReadLine()
        Console.WriteLine(" Ingrese el Abcisa de B")
        AB = Console.ReadLine()
        Console.WriteLine(" Ingrese Ordenada A")
        OA = Console.ReadLine()
        Console.WriteLine("Ingrese Ordenada B")
        OB = Console.ReadLine()
        D = ((AB - AA) ^ 2 + (OB - OA) ^ 2) ^ 0.5
        Console.WriteLine(" La distancia es {0}", D)
        Console.ReadLine()

    End Sub

End Module