Imports System

​

'Omkar Iyer

'October 19, 2020

'Volume of a Cone

Public Module Module1

​

    Public Sub Main()

        Dim radius As Single

        Dim height As Single        'declaring variables

        Dim volume As Single

        Console.Write("Enter the value for the radius: ")       'prompt

        radius = Console.ReadLine()                                     'user input

        Console.Write("Enter the value for the height: ")

        height = Console.ReadLine()

        Volume = (Math.PI * radius^2 * height)/3                    'calculation

        Console.WriteLine("Volume = " & volume)             'output

    End Sub

End Module

​