Area of a Circle Calculator

This code allows the user to find the area of circle by clicking a command button and then typing in the radius of the circle.

It is very helpful to anyone working on a calculator project. I am also coming out with area of triangle and square.

1. Place a command button in your form and name it Command1 and make the caption Area Of A Circle.
2. Copy this code into the form…

Private Sub Command1_Click()

   Dim Radius
   Dim Area

   Radius = InputBox("Type In The Radius", "Radius")
   Area = 3.14 * (Radius * Radius)

   MsgBox Area, vbDefaultButton1, "Answer"

End Sub