Вывести возраст человека в зависимости от введенного возраста - 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