Здравствуйте! Помогите пожалуйста. Что не так?
Sub Лист4_Кнопка1_Щелчок()
Dim y, x As Single 'Описание пременных
x = InputBox("vvedi x") 'Ввод с клавиатуры
If x > 10 Then y = x * x Else
If 0 <= x <= 10 Then y = Sqr(x) Else
y = -x
Cells(1, 1) = "Дано:": Cells(2, 1) = "x=": Cells(2, 2) = x
Cells(3, 1) = "Решение:": Cells(4, 1) = "y=": Cells(4, 2) = x
End Sub
Sub Лист4_Кнопка1_Щелчок()
Dim y, x As Single 'Описание пременных
x = InputBox("vvedi x") 'Ввод с клавиатуры
If x > 10 Then y = x * x Else
If 0 <= x <= 10 Then y = Sqr(x) Else
y = -x
Cells(1, 1) = "Дано:": Cells(2, 1) = "x=": Cells(2, 2) = x
Cells(3, 1) = "Решение:": Cells(4, 1) = "y=": Cells(4, 2) = x
End Sub