Řešení:
Ze zadaného poloměru lze délku kružnice O a obsah kruhu S vypočítat podle vzorců:

Module Module1

    Sub Main()

        Const PI As Double = 3.141592653589

        Dim polomer, delka, obsah As Double

        Console.Write("Zadejte polomer kruznice: ")
        polomer = Console.ReadLine

        delka = 2 * PI * polomer
        obsah = PI * polomer ^ 2

        Console.WriteLine("Delka kruznice = {0:0.000}", delka)
        Console.WriteLine("Obsah kruhu = {0:0.000}", obsah)

        Console.ReadLine()

    End Sub

End Module