Перевести углы в радианы

[Kuzia]

Добрый день
Есть задача-посчитать периметр и площадь фигуры (трапеции). Необходимые данные вводятся в диалоговое окно (Userform): два основания (А и В), высота (h), углы (k,l). В формуле периметра содержатся синусы углов, соответственно, вводимые значения в градусах д.б. преобразованы в радианы.
Написал такую программу:

Private Sub cmdStart_Click()
Dim A As Integer, B As Integer, h As Integer, k As Double, l As Double
A = Val(txtA.Text)
B = Val(txtB.Text)
h = Val(txth.Text)
m = k * 3.14 / 180
z = l * 3.14 / 180
If (A <> B) And ((k + l) < 180) And (k <= 90) And (l <= 90) Then
P = ((A + B) * h) / 2
S = (A + B) + h * ((1 / sin(m)) + 1 / sin(z))
txtP.Text = Str(P)
txtS.Text = Str(S)
Else
MsgBox "Îøèáêà!" + Chr(13) + "Äàííàÿ ôèãóðà íå ÿâëÿåòñÿ òðàïåöèåé", vbCritical + vbOKOnly, "Îøèáêà!!!"
txtA.Text = ""
txtB.Text = ""
txth.Text = ""
txtk.Text = ""
txtl.Text = ""
txtA.SetFocus
End If
End Sub

Но выдается ошибка"11"-деление на 0.
Скорее всего, дело в неправильном задании углов. Но как и через какую функцию их заявить?

[Юнлинг]

Сообщение от Kuzia

Добрый день
Есть задача-посчитать периметр и площадь фигуры. В формуле периметра содержаться синусы углов.
Написал такую программу:

Private Sub cmdStart_Click()
Dim A As Integer, B As Integer, h As Integer, k As Double, l As Double
A = Val(txtA.Text)
B = Val(txtB.Text)
h = Val(txth.Text)
m = k * 3.14 / 180
z = l * 3.14 / 180
If (A <> B) And ((k + l) < 180) And (k <= 90) And (l <= 90) Then
P = ((A + B) * h) / 2
S = (A + B) + h * ((1 / sin(m)) + 1 / sin(z))
txtP.Text = Str(P)
txtS.Text = Str(S)
Else
MsgBox "Îøèáêà!" + Chr(13) + "Äàííàÿ ôèãóðà íå ÿâëÿåòñÿ òðàïåöèåé", vbCritical + vbOKOnly, "Îøèáêà!!!"
txtA.Text = ""
txtB.Text = ""
txth.Text = ""
txtk.Text = ""
txtl.Text = ""
txtA.SetFocus
End If
End Sub

Но выдается ошибка"11"-деление на 0.
Скорее всего, дело в неправильном задании углов. Но как и через какую функцию их заявить?

У тебя в условии

   If (A <> B) And ((k + l) < 180) And (k <= 90) And (l <= 90) Then

угол K и L могут быть равны 0 градусов. синус 0 равен 0 возникает деление на 0
дополни условие

   If (A <> B) And ((k + l) < 180) And (k <= 90) And (l <= 90) And Not m=0 AND Not z=-0 then

Из программы непонятно откуда ты берешь углы. По умолчанию когда объявляешь переменную она равна Null. поэтому m и z равны 0

[Kuzia]

углы вводятся любые, как и основания и высота трапеции. А ограничения такие заданы такие, чтобы соблюсти условия трапеции