Imports System

​

'Anissa Singh'

'October 18th 2021'

'circles program'

Public Module Module1                           'declaring variables'

    Public Sub Main()                           'user input'

        Dim area as Single                      'calculations'

        Dim circumference As Single             'output'

        Dim radius As Single

        Const PI As Single = Math.PI

        area = PI * radius ^ 2

        circumference = 2 * PI * radius

        Console.WriteLine("Please enter radius")

        Radius = Console.ReadLine() 

        Console.WriteLine("Area =" & area)

        Console.WriteLine("circumference =" & circumference)

    End Sub

End Module

​