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
- Монография
- Диссертация
- Компьютерный набор текста
- Чертёж
- Речь к диплому
