Информатика Майкрософт VBA Даны действительные числа х и у Если они - то каждое значение заменить модулем Если - только 1 из них то оба значения увеличить на 0. Если не отрицательные то оба уменьшит в 10 раз. Решить через Майкрософт VBA

Предыдущий
вопрос Следующий
вопрос

Вот пример кода на VBA, который реализует описанные действия:

Sub ModifyValues()
Dim x As Double
Dim y As Double
x = InputBox("Введите значение x:")
y = InputBox("Введите значение y:")
If x < 0 And y < 0 Then
x = Abs(x)
y = Abs(y)
ElseIf x < 0 Or y < 0 Then
x = x + 1
y = y + 1
Else
x = x / 10
y = y / 10
End If
MsgBox "Измененное значение x: " & x & vbCrLf & "Измененное значение y: " & y
End Sub

Вы можете скопировать этот код, вставить его в редактор VBA (например, нажав Alt + F11 в Excel) и запустить, чтобы проверить его работу. Вводите значения x и y в появляющихся диалоговых окнах и программа выполнит необходимые операции в соответствии с условиями.