Question

How to calculate the surface area of a pyramid in VB.NET

Answer 1

Imports System

Public Class CalculatePyramidSurfaceArea_VB_NET
    Public Shared Function SurfaceAreaOfPyramid(ByVal sideLength As Double, ByVal height As Double) As Double
        Dim surfaceArea As Double = (sideLength * sideLength) + 2 * 
									(sideLength * Math.Sqrt(Math.Pow(height, 2) + 
									 Math.Pow((sideLength / 2), 2)))
        Return surfaceArea
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim sideLength As Double = 9.0
        Dim height As Double = 14.0
		
        Console.WriteLine(SurfaceAreaOfPyramid(sideLength, height))
    End Sub
End Class



' run:
'
' 345.69794105734934
'

 

70+ SQL courses for beginners and professionals