Предмет: Информатика,
автор: neanc
Программирование в VBA. Помогите, что тут не верно? (исправить) как надо записать эту задачку!?
Sub z4_1()
Dim x As Single
Dim y As Single
x = InputBox("vvedi x")
y = 0
If x < 0 Then
y = 1 - (x)
End If
End Sub
Приложения:
Ответы
Автор ответа:
0
Sub z4_1()
Dim x As Single
Dim y As Single
x = InputBox("vvedi x")
If x < -1 Then
y=0
Else
y = 1 - Abs(x)
End If
MsgBox y
End Sub
Dim x As Single
Dim y As Single
x = InputBox("vvedi x")
If x < -1 Then
y=0
Else
y = 1 - Abs(x)
End If
MsgBox y
End Sub
Интересные вопросы
Предмет: Биология,
автор: medetkaldanbaj
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Русский язык,
автор: nurkzss17
Предмет: Математика,
автор: kefal
Предмет: Алгебра,
автор: Kristinhik