VB6 - 002 - How old are you? - select case

VB6 -   002 - How old are you? - select case:


VERSION 5.00
Begin VB.Form Form1
   BackColor       =   &H80000013&
   Caption         =   "Distinguishing the age"
   ClientHeight    =   1530
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   3660
   LinkTopic       =   "Form1"
   ScaleHeight     =   1530
   ScaleWidth      =   3660
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton c1
      BackColor       =   &H00FFFFC0&
      Caption         =   "How old are you?"
      Height          =   375
      Left            =   1080
      MaskColor       =   &H00FFFF80&
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   240
      Width           =   1455
   End
   Begin VB.Label l1
      BackColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   480
      TabIndex        =   1
      Top             =   840
      Width           =   2655
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub C1_Click()
Dim x As Integer
x = InputBox("How old are you?", "Age", "A number from 0 to 200")


Select Case x
Case 0
l1.Caption = "You have been born recently."
Case 1 To 4
l1.Caption = "You are a baby."
Case 5 To 12
l1.Caption = "You are a kid."
Case 13 To 17
l1.Caption = "You are a youngster."
Case 18 To 60
l1.Caption = "You are a young."
Case 61 To 130
l1.Caption = "You are middle-aged."
Case 131 To 190
l1.Caption = "You are oldster."
Case 191 To 200
l1.Caption = "You are very old."
Case Else
MsgBox ("You must type an integral number from 0 to 200")
End Select






End Sub