Ответы на вопрос:
Какой язык програмирования.
Объяснение:
Dim a As String
Dim b As String
Private Sub Command1_Click()
" При нажа на кнопку с цифрой "1", в текстовом поле появится "1"
Text1.Text = Text1.Text & "1"
End Sub
Private Sub Command11_Click()
" После нажатия на "*", присваиваем переменной "a" число из текстового поля №1
a = Text1.Text
" В маленькое текстовое поле, пишем знак "*"
Text2.Text = "*"
" Отчищаем тексотовое поле №1
Text1.Text = ""
End Sub
Private Sub Command12_Click()
" При нажатии на "=", присваиваем переменной "b" второе значение, но тоже из текстового поля №1
b = Text1.Text
" Смотрим, какой знак в текстовом поле №2 и делаем нужное действие
If Text2.Text = "*"Then
Text1.Text = a * b
End If
If Text2.Text = "/" Then
Text1.Text = a / b
End If
If Text2.Text = "-" Then
Text1.Text = a - b
End If
End Sub
Private Sub Command13_Click()
" Отчищаем все текстовые поля
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command14_Click()
" После нажатия на "-", присваиваем переменной "a" число из текстового поля №1
a = Text1.Text
Text2.Text = "-"
Text1.Text = ""
End Sub
Private Sub Command15_Click()
" После нажатия на "/", присваиваем переменной "a" число из текстового поля №1
a = Text1.Text
Text2.Text = "/"
Text1.Text = ""
End Sub
" Все что ниже можно откоментировать одинаково: при нажатии на кнопку с определенной цифрой, она отабражается в текстовом поле №1
Private Sub Command2_Click()
Text1.Text = Text1.Text & "5"
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text & "4"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text & "3"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text & "2"
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text & "6"
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text & "0"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text & "9"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text & "8"
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text & "7"
End Sub
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Инна123443211486507.03.2021 12:52
-
Анастасия10504.08.2022 16:12
-
lida10515.03.2021 22:53
-
NinCom01.09.2021 06:12
-
данил207824.06.2023 04:36
-
юра41901.02.2022 21:02
-
BlackStar1414.08.2022 22:36
-
Kristing1523.01.2022 02:44
-
tanyasidorcova15.02.2020 01:22
-
rockmus24.02.2021 17:54
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.