Imports System, Microsoft.VisualBasic

'Alexandra Valera

'10/14/21

'Circle Assignment

​

Public Module Module1

    Public Sub Main()

        Dim Radius As Single

        Dim area, circunference As Single                                                         'Declare variables

        Const PI As Single = Math.PI

        Console.WriteLine("Pease enter a radious ")                                                'User input

        radius = Console.ReadLine() 

        area = PI * radius ^ 2

        circunference = 2 * PI * radius                                                           'Calculations

        Console.WriteLine("Area = " & Area)

        Console.WriteLine("Circuference = " & circunference)                                      'Ouput

    End Sub 

End Module