Question

How to calculate the area, diameter, and circumference of a circle in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim radius As Integer = 3
        Dim PI As Single = 3.14F

        Dim area As Single = PI * radius * radius
        Console.WriteLine("Area = {0:F2}", area)

        Dim diameter As Single = 2 * radius
        Console.WriteLine("Diameter = {0:F2}", diameter)

        Dim circumference As Single = 2 * PI * radius
        Console.WriteLine("Circumference = {0:F2}", circumference)

    End Sub

End Module


' run:
'
' Area = 28.26
' Diameter = 6.0
' Circumference = 18.84
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Namespace CircleCalculatorApp
    Public Module Program
        Public Sub Main(args As String())
            Try
                Dim radius As Double = 3.0

                ' Perform calculations using our utility functions
                Dim diameter As Double = CalculateDiameter(radius)
                Dim circumference As Double = CalculateCircumference(radius)
                Dim area As Double = CalculateArea(radius)

                ' Output results formatted to 2 decimal places
                Console.WriteLine($"Radius: {radius}")
                Console.WriteLine($"Diameter: {diameter}")
                Console.WriteLine($"Circumference: {circumference:F2}")
                Console.WriteLine($"Area: {area:F2}")
            Catch ex As ArgumentException
                Console.WriteLine($"Error: {ex.Message}")
            End Try
        End Sub

        ''' <summary>
        ''' Calculates the diameter of a circle (Diameter = 2 * r).
        ''' </summary>
        ''' <param name="radius">The radius of the circle.</param>
        ''' <returns>The calculated diameter.</returns>
        Public Function CalculateDiameter(radius As Double) As Double
            ValidateRadius(radius)
            Return 2 * radius
        End Function

        ''' <summary>
        ''' Calculates the circumference of a circle (Circumference = 2 * pi * r).
        ''' </summary>
        ''' <param name="radius">The radius of the circle.</param>
        ''' <returns>The calculated circumference.</returns>
        Public Function CalculateCircumference(radius As Double) As Double
            ValidateRadius(radius)

            Return 2 * Math.PI * radius
        End Function

        ''' <summary>
        ''' Calculates the area of a circle (Area = pi * r^2).
        ''' </summary>
        ''' <param name="radius">The radius of the circle.</param>
        ''' <returns>The calculated area.</returns>
        Public Function CalculateArea(radius As Double) As Double
            ValidateRadius(radius)
            
            ' Using multiplication (radius * radius) is more efficient than Math.Pow(radius, 2)
            Return Math.PI * (radius * radius)
        End Function

        ''' <summary>
        ''' Validates that the radius is a non-negative number.
        ''' </summary>
        Private Sub ValidateRadius(radius As Double)
            If radius < 0 Then
                Throw New ArgumentException("Radius cannot be negative.", NameOf(radius))
            End If
        End Sub
    End Module
End Namespace

 
' run:
'
' Radius: 3
' Diameter: 6
' Circumference: 18.85
' Area: 28.27
' 

 

70+ SQL courses for beginners and professionals