Вывести возраст человека в зависимости от введенного возраста - VB
Формулировка задачи:
1-я
Каким прилагательным можно охарактеризовать возраст человека? Субъективное представление отражает следующая таблица:
Приложение должно позволять пользователю ввести свой возраст в годах с помощью окна InputBox и напечатать характеристику возраста на форме в соответствии с таблицей.
Возраст менее 15лет 15-30л 31-45 45-60 Более 60л
Характеристика возраста детский молодой средний пожилой преклонный
2-ая
Известны стоимость покупки, наличие или отсутствие первоначаьного взноса и срок выплаты кредита. Определить величину скидки, которая предоставляется покупателю. Величина скидки вычисляется следующим образом:
• если первоначального взноса нет, то сумма скидки равна нулю;
• если стоимость покупки больше 10000 и срок выплаты кредита равен 6 месяцам, то сумма скидки составляет 10% от стоимости покупки;
• во всех остальных случаях сумма скидки составляет 5% от стоимости покупки.
Решение задачи: «Вывести возраст человека в зависимости от введенного возраста»
textual
Листинг программы
Dim Возраст As String Dim КоличествоЛет As Single Private Sub Command1_Click() КоличествоЛет = Val(Text1.Text) Select Case КоличествоЛет Case Is < 15 Возраст = "Детский" Case 15 To 30 Возраст = "Молодой" Case 30 To 45 Возраст = "Средний" Case 45 To 60 Возраст = "Пожилой" Case Is > 60 Возраст = "Преклонный" End Select Text2.Text = Возраст End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д