Imports System

Public Module Module1

    Public Sub Main()

        ' This program is written to calculate the area of circle

        ' Declare Variables

        Dim Radius, Area As Decimal

        ' Promp and Input Radius

        Console.Writeline("Please enter the radius in cm")

        Radius = Console.Readline()

        ' Calculate the area

        Area = 3.14 * radius ^ 2

        ' Output answer

        Console.writeline("The area of the circle is " & Area & "sq cm")

    End Sub

End Module

​

'   PSEUDOCODE

​

'   REAL: Radius, Area

​

'   OUTPUT "Enter Radius"

'   INPUT Radius

'   OUTPUT "Enter Area"

'   INPUT Area

​

'   Area <-- 3.14 * Radius ^ 2

​

'   OUTPUT "Area of circle is", Area, "sq cm"

​

​

​