Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim radius As Double = 5.7
Dim CircleArea As Double
CircleArea = Math.PI * radius * radius
Console.WriteLine("The area of the circle is: " & CircleArea)
End Sub
End Class
' run:
'
' The area of the circle is: 102.070345315132
'