• Home
 · 
• Miscellaneous
 · 
• Calculate the area of a circle

Calculate the area of a circle

Calculate the area of a circle

API Declarations


'make 2 command buttons (cmdcalculate) (cmdDone)
'make a label (lblanswer)



Rate Calculate the area of a circle

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 Const pi As Double = 3.14
 Dim Radiues As Double
 Dim circleArea As Double
 
 Debug.Print "Radius="; radius      'debug
 radius = Text1.Text
 Debug.Print "Radius="; radius      'debug
 
 circleArea = pi * radius ^ 2
 Debug.Print "circleArea="; circleArea      'debug
 lblAnswer.Caption = circleArea
End Sub

Private Sub cmdDone_Click()
Unload Me
End Sub