3. Программный код решения задачи:
Private Sub btnClick_Click()
Dim a, b As Integer
a = tbA
b = tbSecB
If a < b Then
a = b
Else
If a > b Then
b = a
Else
a = 0
b = 0
End If
End If
MsgBox ("À = " & a & ", B = " & b)
End Sub
4. Поверим работоспособность программы. Для этого перейдем в режим формы и нажмем на кнопку (рисунок 6).
- Курсовая работа
- Дипломная работа
- Контрольная работа
- Реферат
- Отчет по практике
- Магистерская работа
- Статья
- Эссе
- Научно-исследовательская работа
- Доклад
- Глава диплома
- Ответы на билеты
- Презентация
- ВАК
- Перевод
- Бизнес план
- Научная статья
- Рецензия
- Лабораторная работа
- Решение задач
- Диссертация
- Доработка заказа клиента
- Аспирантский реферат
- Монография
- ВКР
- Дипломная работа MBA
- Компьютерный набор текста
- Речь к диплому
- Тезисный план
- Чертёж
- Диаграммы, таблицы
