В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
мимими109
мимими109
31.03.2023 13:26 •  Информатика

Складіть проект для обчислення значення виразу (2*x+y)*(2*x-y) де x y довільні числа

Показать ответ
Ответ:
МандаринкА487
МандаринкА487
20.01.2021 07:53

Какой язык програмирования.

Объяснение:

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

0,0(0 оценок)
Ответ:
ketrin0309
ketrin0309
23.06.2020 04:19

Списки на Web-страницах могут быть представлены в трех видах:

- нумерованные списки, когда элементы списка идентифицируются с чисел;

Например, список пошаговых процедур.

Нумерованные списки применяются при необходимости перечислить элементы списка в определенном порядке, либо чтобы упростить ссылку на конкретный элемент списка (в дипломе, печатном документе, проектной работе).

- маркированные списки (в HTML их принято называть ненумерованными), когда элементы списка идентифицируются с специальных символов (маркеров);

В маркированных списках перед каждым пунктом ставится специальный символ или рисунок, отмечающий элемент списка (значок-маркер). Для всех элементов одного списка используются одинаковые маркеры.

 Маркированные списки обычно применяются для перечисления параметров, порядок следования которых не важен (например, список свойств какого-либо продукта).

- списки определений позволяют составлять перечни определений в так называемой словарной форме.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота