Ř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 = 3.141592653589

        Dim polomer, delka, obsah As Double

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

        If polomer > 0 Then
            delka = 2 * PI * polomer
            obsah = PI * polomer ^ 2
            Console.WriteLine("Delka kruznice = {0:0.000}", delka)
            Console.WriteLine("Obsah kruhu = {0:0.000}", obsah)
        Else
            Console.WriteLine("Spatne zadani")
        End If

        Console.ReadLine()

    End Sub

End Module