Question

How to calculate the volume of a sphere in VB.NET

Answer 1

Imports System
 
Public Class CalculateVolumeSphere
	Public Shared Function sphereVolume(r As Double) As Double
 
        Return 4.0 / 3.0 * Math.PI * Math.Pow(r, 3)
 
    End Function
	
    Public Shared Sub Main()
        Dim radius As Integer = 5
         
        Console.Write("Volume of sphere = " & sphereVolume(radius))
    End Sub
End Class


' run:
'
' Volume of sphere = 523.598775598299
'
 
   

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
 
Public Class CalculateVolumeSphere
    Public Shared Sub Main()
         Dim r As Double = 3
         
        Dim volume As Double = (4 / 3.0) * Math.PI * (r * r * r)
         
        Console.Write("Volume of sphere = " & volume)
    End Sub
End Class


' run:
'
' Volume of sphere = 113.097335529233
'

 

70+ SQL courses for beginners and professionals