Вычислить значение функции - VB (59580)

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

Люди, срочно нужна ваша помощь!!! Никак не могу написать программу на Visual Basic, по причине того, что вообще ничего не понимаю в программировании , а задание скоро надо сдавать! Помогите пожалуйста!

Функция y=F(x)	Значения параметров

Вроде получилось, но прошу проверить:

Private Sub Command1_Click()
t = 4.1
p = 3
X = p + k
k = Abs(p + t ^ 2)
Y = (arctg) ^ 3 * (X) ^ 2
Label2.Caption = Y
End Sub
 
Private Sub Command2_Click()
End
End Sub

Решение задачи: «Вычислить значение функции»

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

                            X = p + k
k = Abs(p + t ^ 2)
Y = (arctg) ^ 3 * (X) ^ 2
                        