Приветик всем! Я учусь в 11 классе,срочно надо сдать работу по информатике.Задание такое:составить программу решения тригонометрических уравнений. Мы вводим правую часть уравнения(лэйбл sin x=...) и программа должна подсчитывать х по формуле х=arcsin(введенное число)+2Пn.У меня есть программка,ошибок не выдает,но и не выполняет ее.Пожалуйста,если не трудно,помогите написать,уже устала спрашивать у всех.
Имена полей и кнопок:
поле ввода числа - "P1"
поле целого числа - "P2"
кнопка вычисляй x - "B1"
поле ответа - "P3"

On Error GoTo Err_
Dim Pi As Double
Dim P1 As Integer
Dim P2 As Integer
Dim P3 As Integer
Pi = 3.14

If P1 > 1 Or P1 < -1 Then
P3 = "Решений нет"
Exit Sub
End If

If P1 = -1 Then
P3 = -Pi / 2 + 2 * P2 * Pi
Exit Sub
End If

If P1 = 1 Then
P3 = Pi / 2 + 2 * P2 * Pi
Exit Sub
End If

'P3 = Atn(P1 / Sqr(-P1 * P1 + 1)

Exit Sub
Err_:
P3 = Err.Description

Заранее спасибо

Подскажите,пожалуйста,каким образом?Я просто вообще ничего в этом не понимаю,писала исходя из знаний математики и основных комманд.

Нет, в том-то и дело,что он ошибок никаких не выводит,но при запуске программы кнопка вообще не работает.Я нажимаю, и ничего не происходит

А если убрать апостроф,то вообще ошибки с Atn,Scr и т.д....в общем,нет,это не проходит