Řešení:
Výšku v_c pravoúhlého trojúhelníku lze vypočítat pomocí dvou kroků:
1. výpočet strany c pomocí Pythagorovy věty
2. výpočet výšky

Module Module1

    Sub Main()

        'Výpočet výšky pravoúhlého trojúhelníku z jeho odvěsen

        Dim a, b, c, vc As Double

        Console.Write("Zadejte odvesnu a: ")
        a = Console.ReadLine
        Console.Write("Zadejte odvesnu b: ")
        b = Console.ReadLine

        If (a > 0) And (b > 0) Then
            c = Math.Sqrt(a ^ 2 + b ^ 2)
            vc = a * b / c
            Console.WriteLine("Vyska trojuhelniku: {0:0.000}", vc)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module