https://pastein.ru/t/TT

  скопируйте уникальную ссылку для отправки

Загрузка данных


Dim n, k As Integer
Dim info As String

n = Val(TxtLet.Text)

'определим текстовую запись возраста

If n >= 10 And n <= 20 Then
    info = "лет"
Else
    k = n Mod 10
    Select Case k
        Case 1
            info = "год"
        Case 2, 3, 4
            info = "года"
        Case Else
         info = "лет"
    End Select
End If
LblLet.Caption = info

'определим род деятельности

Select Case n
    Case Is < 7
        info = "детский сад"
    Case 7 To 16
        info = "учеба в школе"
    Case 17 To 21
        info = "учеба в ВУЗе"
    Case 22 To 55
        info = "трудовая деятельность"
    Case Else
        info = "заслуженный отдых - пенсия"
End Select

LblInfo.Caption = info