Ответы на вопрос:
Option Explicit
Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Single
A = InputBox("A= ")
B = InputBox("B= ")
C = A + B
D = A - B
E = Abs(A) / Abs(B)
MsgBox C
MsgBox D
MsgBox E
Debug.Print C
Debug.Print D
Debug.Print E
End Sub
'A = 5
'B = -8
'C = -3
'D = 13
'E = 0.625
Объяснение:
Надеюсь подойдет давно не писал на нем
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Ptigran25.10.2021 07:27
-
nikputen119.07.2022 09:44
-
fobose112320.08.2021 04:17
-
kulakov200326.09.2022 10:45
-
Islikzaziy11.12.2022 08:38
-
sadovskaya0208.08.2021 04:22
-
Санси05.01.2021 20:05
-
syltan50221.05.2020 18:43
-
13102005bibe26.05.2020 03:32
-
1Али08.02.2023 23:05
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.