Вычисление функции - VB (60474)
Формулировка задачи:
Помогите пожалуйста!Нужна программа расчёта этого примера с использованием операторов If then else.(Большая просьба ничего заумного в программе делать не нужно)
Добрые люди - выручайте!
Решение задачи: «Вычисление функции»
textual
Листинг программы
Private Sub Command4_Click() x = Val(Text1.Text) a = Val(Text2.Text) b = Val(Text3.Text) c = Val(Text4.Text) 'On Error GoTo er ms = "" If x <= a Then If c * x + a > 0 Then y = c * Sin(b ^ 2) * x + b * Log(c * x + a) Else ms = "Log<=0" End If ElseIf x > b Then If Cos(a + b * x) + c * x ^ 2 >= 0 Then y = Sqr(Cos(a + b * x) + c * x ^ 2) Else ms = "Sqr<0" End If Else If b * x > 0 Then y = a + Log(b * x) - (Sin(a + c * x) ^ 2) Else ms = "Log<=0" End If End If Label6.Caption = IIf(ms <> "", ms, Format(y, "###0.00")) 'Exit Sub 'er: MsgBox Err.Description 'Err.Clear End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д