Imports System
Public Module Module1
Public Sub Main()
Dim height As Integer = 26
Dim radius As Integer = 12
Dim pi As Double = 3.14159265359
Dim cylinder_volume As Double = pi * (radius * radius) * height
Console.Write("Cylinder volume = " + CStr(cylinder_volume))
End Sub
End Module
' run:
'
' Cylinder volume = 11762.122895041
'