Imports System
Public Module Module1
Public Sub Main()
Dim radius As Integer = 12
Dim pie As Double = 3.14159265359
Dim surface_area As Double = 4 * pie * (radius * radius)
Console.Write("Surface area = " + CStr(surface_area))
End Sub
End Module
' run:
'
' Surface area = 1809.55736846784
'