Řešení:
Řešení využívá Pythagorovu větu.
S = střed
r = poloměr
v = vzdálenost tětivy od středu
d = délka tětivy

Module Module1

    Sub Main()

        Dim polomer, vzdalenost, tetiva As Double

        Console.Write("Zadejte polomer kruznice: ")
        polomer = Console.ReadLine
        Console.Write("Zadejte vzdalenost tetivy od stredu: ")
        vzdalenost = Console.ReadLine

        tetiva = 2 * Math.Sqrt(polomer ^ 2 - vzdalenost ^ 2)

        Console.WriteLine("Velikost tetivy: {0:0.000}", tetiva)

        Console.ReadLine()

    End Sub

End Module