Imports System
Public Module Module1
Public Sub Main()
'Problem: to calculate the area of a circle.'
dim radius as double
dim area as double
Console.WriteLine("Please enter radius in centimeters") 'The user enters the radius'
radius=console.ReadLine()
area = 3.14*(radius*radius)
console.WriteLine(area & " " & "square centimeters") ' The area will be determined with the help of the radius'
console.ReadLine() 'Output: Area of a circle.'
End Sub
End Module