Если человек бежит за деньгами, он безумен; если он их держит, он капиталист; если он их тратит,
он плейбой; если он не получает его, он не-делает-хорошо; если он не пытается получить его, ему не хватает
честолюбие. Если он получает его, не работая на него, он паразит; и если он накапливает его после
всю жизнь упорного труда, люди называют его дураком, который никогда ничего не получал от жизни.
VBA:
Sub P()
Dim x As Double, y As Double
x = Val(InputBox("x = "))
If x <= 0 Then
y = Sin(2 * x)
ElseIf x <= 10 Then
y = Tan(x)
Else: y = 0.33 * x
End If
MsgBox (" Y = " & y)
End Sub
Программа на скрине!
Надеюсь помог!!