Question

How to find the volume of a capsule in VB.NET

Answer 1

Imports System

Module CapsuleVolumeDemo

    ' V = π r² h + (4/3) π r³
    Function CapsuleVolume(r As Double, h As Double) As Double
        Dim pi As Double = Math.PI
		
        Return pi * r * r * h + (4.0 / 3.0) * pi * r * r * r
    End Function

    Sub Main()
        Dim r As Double = 6.0
        Dim h As Double = 11.0

        Dim volume As Double = CapsuleVolume(r, h)

        Console.WriteLine("Capsule volume = " & volume.ToString("F2"))
    End Sub

End Module


' run:
'
' Capsule volume = 2148.85
'

 

70+ SQL courses for beginners and professionals