Imports System

Public Module Module1

    Public Sub Main()

        'ejemplo CASE

        Console.WriteLine("1. Calcula Area Rectangulo, 2. Area del Triangulo, 3. Area Circulo")

        Dim opcion as integer

        opcion = Console.ReadLine()

        Select opcion  

        case 1

            'procedimiento para el area del rectangulo

            dim b,a as integer

            Console.WriteLine("Ingrese Base")

            b = Console.ReadLine()

            Console.WriteLine("Ingrese Altura")

            a = Console.ReadLine()

            dim arear as integer

            arear = b*a

            Console.WriteLine(arear)

        case 2

            dim bt, at as integer

            dim areat as double

            Console.WriteLine("Ingrese Base")

            bt = Console.ReadLine()

            Console.WriteLine("Ingrese Altura")

            at = Console.ReadLine()

            areat =(bt*at)/2

            Console.WriteLine(areat)

        case 3

            'area del circulo

            'solicitar el radio

            ' formula areac = pi * radio * radio

            ' formaula arec = 3.1416 * r * r

            ' mostrar el resultado 

            Console.WriteLine("circulo")

                'ac = 3.14 * r^r

                dim ac, r as double 

                Console.WriteLine("Ingrese el radio")

                r=Console.ReadLine()

                'Calculo del area

                ac= 3.14 * r^2

                'Mostrar Area

                Console.WriteLine("El area del circulo es: " &ac)

        case else

            Console.WriteLine("Ingrese opcion valida ")

        End select

    End Sub

End Module