'Author: Ryan Ottignon

'Date: 2021-10-18

'Program Name: Volume of a Cone

​

Imports System

​

Public Module Module1

    Public Sub Main()

        'Step 1: Declare variables

        Const PI As Double = Math.PI

        Dim volume, radius, height As Single

        'Step 2: Get input

        Console.WriteLine("Please enter the radius of the cone:") 'Prompt for radius

        radius = Console.ReadLine()

        Console.WriteLine("Please enter the height of the cone:") 'Prompt for height

        height = Console.ReadLine()

        'Step 3: Calculations

        volume = (1/3) * PI * height * (radius ^ 2) 'V = ⅓πhr²

        'Step 4: Output

        Console.WriteLine("The volume of the cone is " & volume & " cubic units")

    End Sub

End Module