Imports System
Public Module Module1
Public Sub Main()
Dim radius As Integer = 12
Dim height As Integer = 25
Dim pi As Double = 3.14159265359
Dim cone_volume As Double = pi * (radius * radius) * height / 3
Console.Write("Cone volume = " + CStr(cone_volume))
End Sub
End Module
' run:
'
' Cone volume = 3769.911184308
'