Составить линейный алгоритм для вычисления выражения - VB

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

Необходимо составить линейный алгоритм для вычисления выражения y= (x-1/(1-x))/((x^3+1)/(x^3-1))+3*ln((x^2-17*x+7)/(3*sqr(2*x+5)-x)) итоговая программа

Sub Command1_Click()
Dim x As Single
Dim y As Single
x = CSng(Text1.Text)
y = (x - 1 / (1 - x)) / ((x ^ 3 + 1) /( x ^ 3 - 1)) + 3 * Log((x ^ 2 - 17 * x + 7) / (3 * Sqr(2 * x + 5) - x))
Label2.Caption = CStr(y)
End Sub

не работает, не подскажите в чём ошибка?

Решение задачи: «Составить линейный алгоритм для вычисления выражения»

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

                            Sub Command1_Click()
Dim x As Single
Dim y As Single
x = CSng(Text1.Text)
On Error GoTo err
y = (x - 1 / (1 - x)) / ((x ^ 3 + 1) / (x ^ 3 - 1)) + 3 * Log((x ^ 2 - 17 * x + 7) / (3 * Sqr(2 * x + 5) - x))
Label2.Caption = CStr(y)
Exit Sub
err: MsgBox "Error"
End Sub
                        

Оцени полезность:

13 голосов , оценка 3.692 из 5

Похожие ответы