Imports System

Public Module Module1

    Public Sub Main()

        'ejemplo case 

        Console.WriteLine("1.Calcule el area rectangulo, 2. area del triangulo, 3. area del circulo")

        dim opcion as integer

        opcion=Console.Readline()

        'ciclo while

        dim respuesta as integer

        respuesta=1

        while (respuesta=1)

            Console.Writeline("Ingrese una opcion para agregar trapecio con 1. si, 2. no")

            opcion=Console.Readline()

        end while 

        select opcion

        case 1

            'procedimientos para el area del rectangulo

            Console.Writeline("ingrese base")

            Console.Writeline("Ingrese altura")

            dim b, a as integer 

            b=Console.ReadLine()

            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

            dim rad as integer

            Console.Writeline("Ingrese radio")

            rad=Console.Readline()

            dim areac as integer

            areac=3.14 * rad * rad

            Console.Writeline(areac)

    case else

            Console.Writeline("Ingrese opcion valida")

                    end select

​

    End Sub

End Module