Вычисление функции - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4 из 5
Похожие ответы