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