Question

1. Create and call a function

1. Using the Visual Basic Editor:
   1. create a VBA procedure named call_function that does the following:
      1. Prompts the user, using two input boxes, for the height and the radius of the base of a cone.
      2. Calls a function named cone_volume and passes the two values to it.
      3. Receives a value back from the function and displays it in a message to the user.
   2. Create a function named cone_volume that does the following:
      1. Receives the two values from the procedure.
      2. Calculates the volume of the cone.
      3. Returns the value to the procedure.

The volume of a cone is:     V = 1/3 × pi × r² × h

V = volume

pi = 3.14159265358979

r = radius of the base

r = height

Answer 1

Below is the VBA code that will calculate the volume of a cone using function.

VBA Code-

Sub call_function()
Dim height As Double 'Declaring variable
Dim radious As Double
Dim volume As Double
height = InputBox("Enter height") 'Getting user input
radious = InputBox("Enter radious")
volume = cone_volume(height, radious) 'Calling function cone_volume by passing parameter
MsgBox ("Volume is: " & volume) 'Displaying the result
End Sub
Function cone_volume(h As Double, r As Double) 'Function definition
Dim vol As Double 'Declaring variable to store volume
vol = 1 / 3 * 3.14 * r * r * h 'Calculating volume
cone_volume = vol 'Returning result
End Function

Code Screenshot-

Output-