Помогите пожалуйста найти площадь пирамиды - VB

Формулировка задачи:

В общем я уже большую часть задачи сделал, но осталась самое трудное )) это сможете сделать только вы )) мои спасители ))) В общем есть пирамида - я объем вычислил, нужно теперь вычислить площадь это пирамиды - которая кипятит мне мозг. Помогите пожалуйста найти площадь пирамиды и так же решить вот это...

Решение задачи: «Помогите пожалуйста найти площадь пирамиды»

textual
                            Листинг программы 
                        

                            Private Sub Command2_Click()
Dim u, v, x, d As Single
u = CSng(Text6.Text)
v = CSng(Text7.Text)
x = u + v
d = (2* Sin(x+0.5) ^2) / Sqr(Exp(x) + 2)
Text8.Text = d
End Sub
 
Private Sub Command3_Click()
Dim xx, y As Single
xx = CSng(Text9.Text)
If xx <= -2 Then y = (1 / 2) * xx + 3
If xx > -2 And xx < 1 Then y == xx - 2
If xx >= 1 Then y = Log(xx)
Text10.Text = y
End Sub
                        