Составить программу вычисления функции двумя способами (If Then Else и Select Case) - VB
Формулировка задачи:
помогите пожалуйста очень срочно надо 7 вариант
Решение задачи: «Составить программу вычисления функции двумя способами (If Then Else и Select Case)»
textual
Листинг программы
Const e = 2.71828182845905
Private Sub Command1_Click()
a = InputBox("a")
b = InputBox("b") 'В РАДИАНАХ
x = e ^ (-a) * Sin(b)
If x >= 0 And x < 1 Then
y = (Sin(x) + 1) ^ 0.5
ElseIf x >= 1 And x < 3 Then
y = (Log(x) + 1) / (x + 2)
Else
y = e ^ (-x)
End If
MsgBox "y(" & Format(x, "0.000") & ") = " & Format(y, "0.000")
End Sub