Imports System
Public Module Module1
'This is a program that calculates area of a rectangle.
Dim Area as decimal
Dim radius as decimal
Public Sub Main()
Console.WriteLine("What is the radius of the circle?") 'prompt for width
radius = console.readline() 'stores the answer as pi
Area = radius * radius * 3.14
Console.writeline("The area is " & Area & " cm squared") ' displays the total area
End Sub
End Module