Составить в vba excel решение

Question

Составить в vba excel решение

Answer 1

Ответ:

• Sub kniga()
• Dim x As Single, y As Single
• x = 3
• If x <> 0 And x < 2 Then  
• y = Sqr(x * x - 1) - x
• ElseIf x > 5 Then  
• y = 2 * x
• Else  
• y = ошибка
• End If
• End Sub

Comments

"y= ошибка если x>2 x<5" -- в условии этого нет. Да и чему по-вашему будет равен y, когда x= 2 или 5?

---

Ну я дописал вывод ответа. а так спасибо большое

---

y= ошибка если x>2 x<5