Для заданного возраста человека, вывести фразу вида: "Мне 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д