Для заданного возраста человека, вывести фразу вида: "Мне 18 лет", "Мне k лет" - VB

Формулировка задачи:

Для заданного 0 < k < 200,рассматриваемого как возраст человека,вывести фразу вида: "Мне 18 лет", "Мне k лет". Помогите составить программный код

Решение задачи: «Для заданного возраста человека, вывести фразу вида: "Мне 18 лет", "Мне k лет"»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim k As Integer
If Text1.Text <> "" Then
k = Text1.Text
If k > 0 And k < 200 Then
Label1.Caption = "Мне " & k & " лет"
End If
End If
End Sub

Оцени полезность:

6 голосов , оценка 4.5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы