Imports System
Public Module Module1
Public Sub Main()
Dim radius As Single = 4
Dim circumference As Single
dim area As Single
Const PI As Single = Math.PI
area = PI * radius ^ 2
circumference = 2* PI * radius
Console.WriteLine("Area = " & area)
Console.WriteLine("Circumference =" & circumference)
End Sub
End Module