Imports System

'Ejemplo if anidado

'Al ingresar una edad determine si es niño, adolescente o adulto

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Ingrese edad: ")

        Dim Edad as Integer

        Edad = Console.ReadLine()

        If  edad >=1 and edad <12 then

        Console.WriteLine("Niño")

        End if

        If edad >=12 And edad <18 then

            Console.WriteLine("Adolescente")

        End If

        If edad >= 18 Then

            Console.WriteLine("Adulto")

        end if

    End Sub

End Module